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ABSTRACT 


This report describes a cost model that can be used to systematically 
identify the costs of procuring ar»i operating satellite-linked communica- 
tions systems. The user defines a network configuration by specifying the 
location of each participating site, the interconnection requirements, and 
the transmission paths availedsle for the uplink (studio to .satellite) , 
downlink (satellite to audience) , and voice talkback (between audience 
and studio) segments of the network. The model uses this information to 
calculate the least expensive signal distribution path for each participat- 
ing site. Cost estimates are broken down by capital, installation, lease, 
and operations and maintenance. The design of the model permits flexi- 
bility in specifying network and cost structure. 

ARINC Research Corporation performed the work for the National Aero- 
nautics and Space Administration (NASA) under Contract NASS-25401; the 
Public Service Satellite Consortium served as a major subcontractor. 
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SUMMARY 


AS part of its pioneering work in applying advemced cotnntunications 
technology to the improvement of public services' productivity, the National 
Aeronautics ^utd Space Administration (NASA) has demonstrated the feasibility 
of using satellite-linked video conanunications systems. This report is 
concezmed with ARINC Research Corporation's development of a model that can 
systematically identify the costs of procuring and operating such systems. 

First, we accomplished a quick-look evaluation of the cost of a one- 
way-video, two-way-voice distribution system to serve federal office build- 
ings in 14 cities. The analytical procedures used in preparing this initial 
report then were used in addressing the major task: developing a model for 

analyzing the costs of the options availjdsle for transmitting a video signal 
via satellite and selecting the preferred options. The costs were grouped 
into four categories, each of which can be analyzed independently of the 
others: 


• Uplink: The cost of producing the video signal and transmitting 

it to the satellite 

• Downlink: The cost of receiving the satellite signal and distrib- 

uting it to the local audiences 

• Voice Talkback: The cost of a voice link from the audience to the 

program originators 

• Administrative: The costs associated with planning, management, 

and other overhead activities 

Each of these costs may be further divided into recurring and nonrecurring 
elements. 

The model's user must define the network configuration by specifying 
the location of each participating site, the interconnection requirements, 
and the transmission paths available for the uplink, downlink, and voice 
tao-kback segments of the network. The model uses this information to 
calculate the least expensive path for each participating site. 

In the uplink cost category, five options were used in the model; they 
involved combinations of transmitting-earth-terminal costs, studio costs, 
and terrestrial-link costs. 


V 


PAGE BLANK NOT FRAMED 


Xn th« dotmlink cost category, up to 37 options were available; they 
involved coabinations of costa for a receiving earth terminal, a terres- 
trial link, a local distribution medium, and end user equipment. The 
network itself might own the earth terminal or simply be linked to a 
shared terminal. Local distribution might be accomplished by video lines, 
microwave links, cable TV (CATV), or Instructional Television Fi>;ed Service 
(XTFS) lines. Voice talkback might be accomplished through direct dial, 
VATS, or private line. Direct dial was modeled as a straight hourly rate, 
private line as a fixed monthly charge dependent on distance, and WATS as 
having both fixed and hourly c«^nents. 

Administrative costs are not used as parameters for the model; they 
are merely inserted into the data base to be read directly as part of the 
output. 

The model was used to amalyze eight cases. All were hypothetical or 
proposed nonprofit public service applications of differing complexities. 
Five represented individual networks, and three involved several networks 
sharing transmission equipment. The cases are briefly characterized as 
follows : 

1. Federal Cities Network - 14 major U.S. Government offices distrib- 
uted throughout the continental United States. Progreimming origi- 
nates from Washington, D.C. 

2. Appalachian Educational Satellite Project (AESP) - 45 small cities 
and towns located in or near the Appalachian Mountains, from New 
York to Alabeuna. Many of the receiving sites are small colleges. 
Programming originates from Lexington, Kentucky. 

3. Washinqton-Alaska-Montana-Idaho (WAMI ) - 15 sites in northwest 
United States and Alaska. The WAMI network is used for medical 
education. Programming originates from Seattle, Washington. 

"East" Case - a combination of the following networks; 

a. The Federal Cities Network 

b. 70 ftESP sites (an expansion of case 2) 

c. 10 Veterans Administration (VA) hospitals 

5. "West" Cas e - a combination of the following networks: 

a. The Federal Cities Network 

b. The WAMI Network 

c. 32 VA hospitals 

d. 10 Denver Research Institute sites 

e. 5 Project Interchange sites 

f. 27 California Education sites 

g. 3 California Conferencing sites 


6. Standard Matropolitan Statiatical Areas (SMSA) Cases - a series 

6t cases invoi'/ing progressively higher numbers of downlink cities. 
Prograimning originates from Washington, D.C. The following net- 
works were analyr.ed: 

a. 10 Federal Regional Headquarters 

b. (a) plus 12 additimal cities to include the top 20 SMSAs 

c. (b) plus 42 a^itional StSAs at or near state capitals 

d. (c) plus 14 additional state capitals that are not SMSAs 

7. Federal Regional Procrraaaaing - a network where each of the 10 

federal regiorial offices independently produces a small amount 
of prograsanlncr each week. The receiving sites are the s^^ne 78 
cities as in case 6d. 

8. Cost Allocation Case - a network of the 10 federal regional offices 
a.td the top 20 SMSAs (similar to 6b) . Eight of the 10 federal 
offices au:e also SMSAs. The overall cost is allocated to the two 
organizations on the basis of variois network parameters. 

The results of exercising the nusdel for these cases are summarized in 
Table S-1. Annual operating costs for each network depended primarily on 
hours of utilization. Some economy of scale could be observed since average 
cost per uplink hour tended to be lower for the laurger networks. Benefits 
from sharing facilities were a function of the level of shared investment. 
The East case, \id)ich had few common facilities among its three member 
organizations, showed much lower savings attributable to sharing than did 
the West case, which had a relatively large number of shared facilities. 

The cost allocation case quantifies possible savings from sharing facili- 
ties. By consolidating facilities in the eight cities that receive pro- 
gramming from both organizations, the number of required sites can be cut 
significantly. As a result, an equivalent level of service can be provided 
at lower cost than either organization acting alone could achieve. 


Table S-1. SUMHARY OF TEST RUN RESULTS 
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CHAPTER cm 


INTRODUCTION 


1.1 BACKGROUND 

NASA has bssn a pionssr in the development of communications technology 
to improve the productivity of public services. Experiments conducted on 
the ATS-1, -3, -6, and CTS demonstrated that comnunications satellites have 
the technical capability to in^rove access to vital public services. 

Public service agencies that participated in the NASA experiments now 
are in the process of changing over to the use of craimercia.1 facilities. 

An essential element in making this transition a success is demonstrating 
to the agencies and to other potential users that cost savings and improved 
service can be achieved by increased use of these communications techniques. 
The key lies in establishing appropriate shared-use networks. To this end> 
under Contract NAS5-25401, ARZNC Research Corporation and its subcontractor, 
the Public Service Satellite Consortium, undertook the development and trial 
application of a computer model that would facilitate the design and costing 
of shared video distribution systems that would use common carrier facilities 
and serve the needs of various combinations of public service users. The 
work and results are described in this report. 

The most difficult phase in the creation of a shared-used public service 
comnunications network will be the start-up phase. Once a backbone of users 
is established, it will be comparatively easy to expand the network. ARINC 
Research has found in studies of other industries that usually a small per- 
centage of the users (e.g., 10 percent) generate a substantial amount of the 
total traffic (e.g., 90 percent). In the public service coimnunity, a simi- 
lar phenomenon can be expected. Large urban institutions would make or 
break the cost-effectiveness of a public service network, even though the 
greatest benefits in terms of is^roved access and cost containment could 
accrue to smaller institutions located outside the major cities. Therefore, 
one must ex^unine a base of users having complementary requirements in cities 
where established carriers c&n provide the desired services at a savings. 

The model described herein can remove many of the existing uncertainties 
regarding costs, preferred services, and locations associated with estab- 
lishing the initial system users and suppliers. 

There are several issues to be considered in establishing a shared-use 
network for one-way video. A number of earth stations that are intercon- 
nected by Western Union's WESTAR satellite or RCA's SATCOM have already been 
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or ar« about to ba installad. Tha ayatama includa ISO Public 
Broadcaatii^ Sarvica (PBS) ataticma, 190 National Public Radio (NPR) ata- 
tiona* and nora than 400 eabla TV (CATV) aarth atationa. Holiday Inna, 

Inc. ia plaiming to inatall a larga nunbar of aarth atationa to provida 
cloaad*circuit talaviaion aona of ita 1,500 outlata. Public aarvica 
night ba abla to uaa ttMaa natworka fo aatabliah a aharad-usa ayatam for 
ona~way vidao on an incranantal coat baaia. Faadback or a raturn cMsnuni- 
catima path could ba providad by a aaparata ^ica/data nat%«ork or by wida 
Araa Talaphona Sarvica (WATS), if nacaaaary. 

Unfortunataly, in nany caaaa thara ia no axiating local loop that could 
coimact ti'ta aarth atatiim to institutiona that ara of intaraat to po-antial 
public aar/ica uaars. Bufora our \#ork atartad, tha Public Sarvica Satallita 
Cmiaortiun (PSSC) avaluatad tha racurring and nonracurring coata of pro- 
viding and-to-and cloaad circuit TV aarvica to intaraatad public aarvica 
uaars in 14 U.S. citias* sar/ad PBS aarth stations. Tan of thasa citias 
alraady hava ona or nora Instructional Talaviaion Fixad Sarvica (ITFS) or 
CATV systaiM. Mowavar, in only thraa of thasa 10 citias ia tha PBS aarth 
station intarconnactad to an Misting local loop. Tha cost of installing 
this intarconnection (about $25,000) would axceed tha cost of a naw raceiva- 
only aarth station (%diich could view aithar WESTAR or SATC^) if this naw 
station wars installad at tha haad-and facility of a CATV or ITFS ayatam. 
Altlicu^ all PBS aarth stations hava a radundant racaivar that may ba usad 
on a praamptiva basis at tha diacration of tha licansaa, a naw racaiva 
chain (at a cost of about $10,000) might ba raquirad to provida regular 
nMbroadcast sarvica once a certain volume is reached. Six of tha 14 PBS 
installations hava a "carraatrial tail" between tha aarth station and the 
studio. Additional channala (at a cost of $15,000 par channel) might hava 
to ba installad on these microwave relays once tha volume of nonbroadcast 
sarvica InacaiM appreciable. 

Thus, while existing earth stations might provide an excellent starting 
point for a ahared-ose, one-way video network, in many cities tha lack of 
channel capacity or of an interconnected local loop might nacassitata new 
capital investment to provide end-to-end transmission service. The decision 
on tdiether to augment existing facilities or construct new facilities will 
depend critically on the access arrangments that can be negotiated with 
owners of existing aarth stations and local loops. 

These considerations led to the work reported herein: the development 

of a model that could consider numerous options for the uplink (studio to 
satellite) , downlink (satellite to audience) , and talkback (i^twaan audience 
and studio) segments of a video distribution system and selection of tha 
optimum ones for each of the cities in the network. 


"Atlanta, Boston, Chicago, Cleveland, Dallas, Denver, Kansas City, Mo., 
Los Angeles, New York, Philadelphia, San Diego, San Francisco, Seattle, 
and Washington, D.C. 
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1.2 P1«3JECT OVBKVXEM 


Th« project outputs are (1) a nodal that can ba used to dafina pra- 
farrad configurations and to avaluata shared public service video conmuni- 
cations system and (2) the results of several trial applications of this 
nodal. 


The initial phase of the project involved a 21-day effort to make a 
quick- look evaluation of tlM cost of a one-way video, two-way voice com- 
imanications systne serving federal office buildings in 14 major cities 
to submit a report on the results, ^e analytical procedures developed in 
this work were later used as a guide for model formulation. The model was 
demloped and was allied to five test cases. As a result, several addi- 
tional refin«Mnts to tlie model were identified that would increase its 
capability and ease of use. The model was enhanced and tested against a 
new set of test cases. 

Throughout ^e project there was a continuing effort to develop and 
refine a data base of applicable cmmunications tariffs and hardware costs. 
The tvo prism activities — the development of the video distribution sys- 
tems cost model and the analysis of specific public service satellite com- 
munications scenarios — were performed in parallel. The specific config- 
uratim requirements of the individual scenarios served to guide t’te features 
that were incorporated into the model. The model was used to develop insight 
into the types of econ^ies that could be achieved through shared public 
service video distribution systems. 

The Public Service Satellite Consortium (PSSC) provided many of the 
inputs to the data base and cmnnented on and reviewed other aspects of the 
project. 


1.3 {SPORT ORCANIZATZC»I 

This report consists of this introductory chapter and three chapters 
that provide a model overview, the results of the cases analyzed, and con- 
cluding comments on the utility of the model in evaluating the benefits of 
sharing. There are six appendexes: 

• Aj^endix A - Data Assumptions . The justification for sane of the 
cost assumptions used in the uplink and downlink segments are 
presented. 

• A^endix B - (todel Formulation. Detailed documentation of the 
model is presented, including e description of the calculations 
and definitions of variables. 

• Appendix C - Sample Ot.tr, its. The in^t data and output reports 
for a selected model run are shown. 

• ^pendix D - Program Listings. The main FORTRAN program and sub- 
routines used are listed. 
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* ^pandlx E - Mod«l Initallation. Tha procaduraa required to inetall 
the nodel on a minicaaputer are explained. 

* Aj^ndix F - Operational Coats and Management Considerations. The 
feasibility of offering access to the TOdel to a large community 
of users is assessed and presented in terms of the costs required 
to support the model. 
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CMAPTHt TWO 


MODEL OVERVIEW 


A connon requirement in business, government, and education is estab- 
lishing efficient c<MmBunications among individuals scattered over a wide 
geographic area. Face-to-face meetings are the most effective way to 
accoi^lish this, but the high cost of travel, room, and board often make 
them an unattractive alternative. 

With the advent cf satellite communications, it became more economically 
feasible to use video transmission to conduct meetings. In an education 
or presentation environment, where a single person presents the bulk of 
the material, a one-way video chamnel may be particularly effective. Inter- 
action between the lecturer and the audience c^m be accomplished by either 
a conventional voice line or a second video channel. Economic feasibility 
of a video meeting depends on the number of participating sites, system 
utilization, individual equipment lease charges, and other lesser factors. 

To analyze the complex trade-offs that can be involved, a model has 
been developed that permits rapid cost emalysis of alternative transmission 
options in networks using video transmission. In a typical case, a small 
number of uplink sites originate video programs and transmit them via 
satellite to geographically diverse audience sites. Each receiver must 
have its own earth terminal or a link to a shared terminal. A terrestrial 
voice circuit may be required to enedsle each receiving site to talk back 
to the transmitting site. Figure 2-1 illustrates tnis typical video dis- 
tribution system. 

The cost model provides an estimate of capital and operating costs 
for video communications via satellite from signal generation to reception. 
At each stage of signal transmission there may be several options concern- 
ing the type of equipment or common carrier to use. The model can analyze 
these options and choose the nrast cost-effective "path." By performing 
a comparison between a baseline and a scenario case, the model can show 
the results of a single change in network parameters. 

The model can also be used to highlight the cost benefits of sharing 
facilities. Two or more organizations that individually cannot use a 
facility effectively might find that sharing the facility would be mutually 
beneficial. Multiple organizations sharing earth terminals or recording 
studios, for example, provide substauitial cost benefits to the users. The 
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Figure 2-1. TYPICAL VIDEO DISTRIBUTION SYSTEM 





savings Unit would be reached when the shared facility became fully used. 
The m^el allows the user to esteUslish his own cost allocation methodology 
by specifying the member organizations that will share the cost and apply- 
ing weighting factors to the various cost items (e.g., peak versus off- 
peak usage) that affect each organization's share. 


2.1 OVERALL MODEL STRUCTURE 

The Video Distribution System Cost Model is designed primarily to 
analyze the economic options in transmitting a video signal, but may be 
applied to nonvideo systems as well. The cost structure is divided into 
four segments that can be analyzed independently of each other: 

1. Uplink. The cost of producing the video signal and transmitting 
it through the satellite system. This includes costs of studio 
space and equipment, camera crews, and satellite transponder 
lease, and the cost of any terrestrial links from the studio to 
the uplink earth station. 

2. Downlink and Local Distribution . The cost of receiving and decod- 
ing the satellite signal and distributing it to the local audience. 
Ihis includes costs of receiving earth terminals, local distribu- 
tion, euid monitors. Distribution can be accomplished through a 
tie-in to a local CATV or Instructional Television Fixed Service 
(ITFS) system by a terrestrial video line or by microwave link. 

3. Voice Talkback. The cost of the optional voice link from the 
audience to the originators of the programming. Depending on 
utilization and distance, voice talkback can be accomplished via 
direct dial, private line, or WATS. 

4. Administrative . The management and overhead cost of the network 
as a whole. It includes items such as pletnning studies, manage- 
ment salaries, building space, and any other costs not directly 
attributedsle to the uplink, downlink, or voice talkback segments. 

The costs for each of the segments are further divided into capital, 
installation, lease, and operations and maintenance (O&M) categories. 

Capital and installation costs are one-time charges for facilities 
necessary to bring the system into operation; lease and O&M costs are 
recurring. Capital and lease costs are for equipment; installation amd 
O&M costs are for services. The capital and installation costs may be 
amortized as an ongoing expense over a period depending on interest rate 
and equipment life. 

For each of the major cost segments other than "Administrative," the 
model user must specify a set of available options, or "paths," that define 
the various means of sending the information through that particular link 
of the system. The model will calculate the cost of each feasible option 
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and choose the least expensive, option for each city under consideration. 
Because of variations in hourly utilization, distances between cities, and 
other factors, the optional path will not necessarily be the same in each 
city. 


Three types of input data are required from the model user: 

1. Cost Element Data. These consist of the capital, installation, 
lease, and O&M costs of each cost el&nent (piece of equipment or 
nonhardware cost unit) used in the analysis. A single cost ele- 
ment may consist of many individual items, as long as they are 
always considered together. 

2. Path Data. A path consists of one or imsre cost elements and 
represents a method of transmitting the signal through one of 
the n»del segments. In the uplink segment, for exan^le, a 
typical set of path data might consist of studio rental, a video 
link between the studio eUid the earth terminal, and the transponder 
lease. 

3. City Data. For each audience site in the network, the user must 
specify location, utilization, local distribution requirements, 
voice talkback reqiiirements, and which of the defined paths are 
feasible. 

Figure 2-2 shows how the three types of data interact to generate the 
least-cost path. Costs are summed over all cost elements associated with 
each path and then modified by any vari^d>les (e.g., hourly utilization of 
the system) that are dependent on tlie city under consideration. This 
enables the calculation of costs of all feasible paths for the given city, 
from which the least-cost path is selected. 

The following four sections address the model formulation in terms of 
the four cost categories: uplink, downlink, voice talkback, and administra- 

tion. The last section examines the model's special features. A more 
detailed description of the model's logic and parameters can be found in 
Appendix B. A detailed description of how to use the model is presented 
in the User's Guide to the Video Distribution System Cost Model, published 
as ARINC Research Publication 1358-01-TR-2234, dated July 1980. 


2.2 UPLINK FORMULATION 

Uplink costs in the model are those involving production and trans- 
mission of the video signal to the satellite. 

Figure 2-3 shows a representative set of uplink paths. Each box 
represents a cost element; emy combination of elements connected 
by a link denotes ein acceptable path. All paths will incur costs for 
satellite usage (transponder lease) and a television studio to produce the 
video signal. If an existing uplink earth terminal is to be used, a 
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terrestrial video circuit or microwave link will be required to carry the 
signal fr^ its point of origination to the uplink earth terminal. In 
some locations, a new earth terminal will be required; if it is colocated 
with the studio, a terrestrial video link between the two will not be 
necessary. These possibilities generate the five possible paths shown in 
the diagram: 

• Microwave link to existing earth terminal 

• AT&T video link to existing eaurth terminal 

• Microwave link to new earth terminal 

• AT&T video link to new earth terminal 

• New earth terminal colocated with studio 

Not all of the five paths are necessarily feasible for every uplink 
city. For example, if there is no existing earth terminal in a given city, 
then a new facility must be built, and the first two paths will not 
be feasible. 

2.3 DOWNLINK FORMULATION 

Downlink costs in the model are those associated with receiving the 
satellite video signal and distributing it to the audience. 

Figure 2-4 shows the 37 possible downlink paths. Other paths might 
be possible, but those considered here were thought to be typical of most 
applications. The seeming complexity of the diagram is misleading, since 
the 37 paths simply represent various combinations of a receiving earth 
terminal, a terrestrial link, a local distribution medium, and end user 
equipment. 

As in the uplink segment, each receiving site must have its own earth 
terminal or link to an existing one. In the diagram, options are displayed 
for a link to a CATV earth station, a PBS earth station, or a cotnmn 
carrier satellite station. If there was only one end audience in a 
particular city, it was considered practical to link it directly to the 
earth station via 1-hop or 2-hop microwave. For multiple users, the signal 
could be locally distributed via CATV or an ITFS transmission system. If 
either of these methods were used, it might be necessary to establish a 
microwave or video link between the earth terminal and the local transmis- 
sion system. 

The private earth terminal could also be colocated with one of the 
audience sites. If there is only one audience organization associated 
with a particular downlink city, there will be no need for a local trans- 
mission system as well, with multiple receiving organizations, it will be 
necessary to establish a local distribution system through a CATV or ITFS 
network. In cases where the receiver must also be used as a transmitter, 
either for a two-way video communications or for one-way transmission at a 
different hour of the day, a single two-way earth terminal could suffice 
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Figure 2-4. LOCAL DISTRIBUTION OPTICWS 



for tha downlink. A final altamative is to racaiva tha signal by using 
an aarth tarndnal in a naarby city and than running a one- or two-hop 
microwava link batwaan tha aarth terminal and the viewing site. 


2.4 VOICE TALKBACK FORMULATION 

In soma applications it is necessary that the audience of the video 
programming communicate with the originators to comment or ask questions. 
This communication, whether occurring during or after the presentation, 
would be by common-carrier voice circuits external to the satellite system. 

There are three telephone options available for such voice talkback: 
Direct Distance Dialing (DDD) , measured HATS, and private line. The most 
cost-effective approach depends on the distance between the two cities 
and the number of monthly hours of talkback required. DDD costs are 
modeled at a fixed rate of $0.55 per minute regardless of distance, which 
corresponds approximately to the cost of a one-minute personal coast-to- 
coast long distance call during business hours. Rates are slightly lower 
for shorter distances or for additional minutes. Therefore, the 55 cents 
may be considered a worst case. The principal advantage of DDD is that 
there is no minimum charge. Private line charges, on the other hand, are 
based solely on mileage and are not dependent on utilization. Charges per 
month are set by .‘nterstate tariff at $190.40 plus $0.40 per mile. WATS 
charges fall between those of DDD and private line emd have fixed (per 
month or mile) and varietble (per hour) components. The average fixed 
nonthly charge is approximately $60.00; the average hourly charge is 
approximately $18.00. 

On the basis of this schedule of costs, DDD will be the preferred 
alternative for low-utilization circuits and private line for high- 
jtilization circuits, regardless of distance. HATS will be preferred when 
utilization is sufficient to take advantage of the lower hourly tariffs 
^uld the two cities are so far apart that the private line charge would be 
prohibitive. Figure 2-5 shows the cost trade-offs associated with the 
three alternatives for Washington-to-Chicago communications. 


2.5 ADMINISTRATIVE COSTS 

Administrative costs accrue in addition to the direct costs of a video 
satellite system. They include costs for planning studies emd legal pro- 
cedures involved in establishing the network, and general management costs 
not attributable to the uplink, downlink, or voice taDcback segments. 
Administrative costs are not expected to vary according to network con- 
figuration, utilization, or any other factor. The data are inputted by the 
user and read out directly in the output; the model performs no calculations 
with these figures. 
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Dollars per Month 



0 10 20 


Utilization (Hours par Month) 


Figure 2-5. COMPARISON OF WATS, ODD, AND PRIVATE 
LINE (WASHINGTON TO CHICAGO) 


2.6 OTHER SPECIAL FEATURES 
2.6.1 Interactive Scenario Builder 


The interactive scenario builder is used to establish the user's 
network configuration and associated cost elements. The scenario builder 
accepts as input either a system-created scenario file that contains 
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typical network costs (see Appendix A) or a scenario created by the user 
during a previous ccnputer session. 

Use of the systesfcreated scenario file allows the user to provide 
minimum input. The only required data are the list of uplink and dovmlink 
network cities and their location in latitude/longitude or Bell System V 
and H coordinates, hours of satellite utilization by city, number of receiv- 
ing organizations per city, terrestrial micxowave or video link requirements, 
and voice talkback connectivity and utiliza^iion requirements. 

Use of a previously created scenario allows the user to examine the 
sensitivity of the network configuration costs to changes in the number 
of uplink and downlink cities and in various cost allocation methodologies. 

Other features of the scenario builder include automatic prompting for 
user input, simple procedures for implementing minor network changes, and 
sufficient generality so that nonvideo network distribution problems can 
be worked. 

2.6.2 Transponder Channels 

In the uplizUc segment, the user can assign a transponder channel 
number to each uplink site. The numbers have no significance except to 
indicate that cities assigned the same channel number are sharing a parti- 
cular frequency. Fixed costs and minimum operating costs associated with 
using a transponder channel are assigned only to the first city associated 
with each unique channel number. If no channel assignment is made by the 
user, the nucdel will assume that all programming is done on a single 
transponder frequency. The model is not currently equipped to schedule 
the time slots on the transponder; the user must do this. However, it 
is a simple process and can be done manually for all but the nusst complex 
cases. 

2.6.3 Hierarchical Levels 


m the downlink segment, the user can assign a single-digit hierarchical 
number to each downlink city. Ihis number indicates the city's position in 
the overall organizational structure of the network. If the assigned 
level is two or less, talkback costs will be calculated from the gi^n city 
to each i^link city; if three or greater, the city is assuxaed to talk back 
to the nearest level two city, which serves as a central relay point to 
the uplink city. 


2.6.4 Earth Terminal Data Base 


An earth terminal data base is availaUale for determining the possi- 
bility of sharing an existing site. The data base is a subset of the data 
stored by the Federal Communications Commission (FCC) and consists of call 
sign, licensee, city, state, latitude/longitude, type of service, antenna 
size, and licensed points of communication (satellites) . Unlicensed stations 
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aM atatiOM whosa application# art panding ara not includad. Tha data basa 
Indicata# all satallltas to which tha aarth tarminal ia licenaad to point, 
but doas not indicata which satallita tha aarth tarminal is currantly 
pointing to. A aaoqpla racord ia llluatratad in Figure 2-6. A utility 
axiata to accaaa thia data baaa and provida appropriata data to the uaar. 

2.6.5 Modal Output 

Tha major output of tha modal ia a tabulation of coats for the leaat 
ejqpanaive ayatem, broken out for tha uplink, downlink, voice talkback, and 
adminiatrativa aagmanta. Coata are further subdivided by capital. 
Installation, lease, and 0«N. Other reports show costs for tha uplink, 
downlink, and voice talkback segments in greater detail. Output from a 
sample run is shown in Append!.'^ C. 


Fields Includad 


Example 


• Call Sign 

• Licensee 

• City 

• State 

• Service 

• Latitude 

• Longitude 

• Antenna Size 

• Liconsed Points of 
Communication 


KS20 

TeleproR^ter 

Anaheim 

CA 

DFS-FES-D-TR* 
37-37-02 
121-49-51 
4.5 Meter 
KS20, KS21** 


^Domestic Fixed Satellite - Fixed 
Earth Station - Developn«ntal- 
Traxtsmit/Receiva . 

•*WESTAR I, WESTAR II. 


Figure 2-6. SAMPLE EARTH TERMINAL 
RECORD 
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CHAPTER THREE 


CASES ANALYZED 


nie nodal waa axarclsad to analyza tha aight casat daacribad in this 
chaptar. Host of th«n raprasant individual natworks; thraa involva saveral 
natworks sharing satallita transp<»)dar channals. Itia casas analyzad, vary- 
ing widaly in conplaxity, ara charactarizad as follows: 

1. Fadaral Ci t ies - 14 major U.S. Govamnant Offices distributed 
throughout the continental United States. Programming originates 
from Washington, O.C. 

2. Appalachian Educational Satellite Project (AESP) - 45 snail cities 
and towns located in or near the Appalachian Mountains from New 
York to Alabama. Many of tha racaiving sitas are small collages. 
Prograraaing originates from Lexingtoi, Kentucky. 

3. Washington - Alaska - Mwitana - Idaho (WAMI) - 15 sitas in tha 
northwast continantal Unitad statas and Alaska. Tha WAMZ nat- 
woric is usad for aadlcal aducation. Progranaing originatas frara 
Saattla, Washington. 

"East” Casa - A ccxnbination of the following networks: 

a. Tha Fadaral Cities network 

b. 70 AESP sites (an expansion of case 2} 

c. 10 Veterans Administration (VA) hospitals 

5. "West" Case - A condsination of the following networks: 

a. The Federal Cities netvnrk 

b. The WAMI network 

c. 32 VA hospitals 

d. 10 Denver Research Institute sites 

e. 5 Project Interchange sites 

f. 27 California Education sites 

g. 3 California Conferencing sites 
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6. stM^ard j^tropolitm Statistiol Ar«>i (SMSA) C&««s - A sarias of 
catai ir.volving prograssivaly highar nuiabars of dwnllnk citiaa. 
Programing orlglnatas from Waahington, D.C. Tha following nat- 
works wara analyzadi 

a. 10 Fadaral Raglonal Haadquartars 

b. a plus 12 additional cltlas lncltkU.ng tha top 20 StfiAs 

e. b plus 42 additional SMSAs at or naar stata capitals 

d. c plus 14 additional stata capitals that ara not SMSAs 

7. Padaral Raglonal Programning - A natwork whara aach of tha 10 
Fadaral raglonal offlcas Indapandantly producas a small amount of 
prograimli^ aach waak. Tha racaivli^ sltas ara tha sama 78 cltlas 
as In casa 6d. 

6. tost Allocatlw Casa - A natwork of tha 10 fadaral raglonal offlcas 
and tha top 20 SMSAs (similar to 6b). For this casa, tha cooputad 
ovarall cost Is allocatad to tha tvo organizations on tha basis of 
various natwork paramatars. 

Ihasa casas ara Intandad to lllustrata tha capabllitlas of tha modal 
ovar a varlaty of video natwork probl^s. Xn most applications of this 
modal It Is axpactsd that savaral runs will ba raqulrad to rafina cost and 
othar paramatars and to calculata tha sansitlvlty to various cost ccmponants. 
Tha casas dascrlbad In this chaptar wara davalopad and run at dlffarant 
tlmas. As naw and battar Information bacmia available, tha modal's cost 
assumptions wara updated; consequently, results from two dlffarant casas 
may not be directly comparable. 


3.1 FEDERAL CITIES NETWORK 

The Fadaral Cltlas natwork Is a hypothetical ona-way-vldao, two-way 
voice coQBmnlcatlons system linking seven federal organizations in Washing- 
ton with regional offices in fadaral office buildings In 14 major cities. 
Tha utilization raqulraments of aach organization ara shown in Table 3-1. 
'Hna Bureau of Alcolwl, tobacco, and Firearms requires only occasional and 
minimal channel utilization for Its needs, so its utilization Is modeled 
as 0. Navarthalass , facilitias imist be made available for these occasional 
broadcasts . 


Washington is tha only uplink city; however, a separata studio and 
video link Is required for each department. These are necessary to origi- 
nate the prograimlng and transmit it to a single uplink facility located 
in the Washington area. Transmission to the uplink terminal could be 
accomplished either a leased video line or a microwave link. Prin- 
cipally because of the lovwr operating costs, microwave links were found to 
be less expensive than AT&T video 11 . ,s. 
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Tabl» 3-1. SYSTEM UTILIEXTlcai 


Departawnt 

Agency 

Cities 

Utilization 

Comnents 

Treasury 

IRS 

12 

5 

hrs/wk 

Training for exMilncrs 


BAIT 

9 

0 

hrs/wk 

Bureau of Alcohol, Tobacco, 
and Pireazirs 

HEW 

Secretary 

8 

2 

hrs/wk 

Office of the Secretary 


SSA 

9 

5 

hrs/wk 

Social Security Administration 

DDL 

ETA 

9 

3 

hrs/wk 

Employment Training 
Administration 

DOI 

Secretary 

4 

2 

hrs/wk 

Office of the Secretary 

U.S. House 


10 

32 

nrs/mo 

Congresmaen discussions with 
constituents 

U.S. Senate 


8 

20 

hrs/a» 

Senat' discussions with 
cons- ’ .nts 

DOC 

Secretary 

6 

2 

hrs/wk 

Office wf the Secretary 

i 


On th« dotmllnk tide, options depsnded on the facilitiss available in 
each city. CATV earth terminals that might be used were available in 
Atlanta* Mew York, and Seattle. Existing ITFS systems could be used for 
local distrilmition in Atlanta, Chicago, Ia>s Angeles, New York, and San 
Francisco. All cities have a PBS earth st.>tion that could be wired into 
a local distribution system. Alternatively, >11 cities could construct 
their own receive-only earth terminals and install them clo.-<'j enough to 
each federal building that it would be necessary only to run a short coaxial 
line directly to the viewing ro«n. Because of the relatively low cost of 
an earth statioii and because there was only one site in each city (since 
all agency offices are selected to be colocated) , the private earth ter- 
minal option was found to be the most cost-effective for all cities. 

Different options might be preferred if it were necessary to distribute 
the video signal to more than a single site in each of the cities. 

In the voice talkback segment, only the WATS and private-line alterna- 
tives were considered. Monthly utilization of the talkback circuits ranged 
fr<MB 29 hours in Denver to 134 hours in Dallas. (Even the 29 hours is far 
beyond the maximum cost-effective level of DDD.) Private line was the pre- 
ferred medium for all cities except Denver, where a combination of low 
utilization and high mileage to Washington made WATS the cheaper alternative. 

Table 3-2 summarizes the preferred configuration and the model's cost 
output for this network. The capital expenditures are concentrated in the 
purchase of the microwave equipment to carry the video signal to the uplink 
terminal and the receive-only earth stations to be uaed in each downlink 
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7«bi« 3~2. FSOERAL CITIES HETWOitlC 
Available Cation 


City 

Uplink 

Downlink 

Voice 

Talkback 

Atlanta, OA 

— 

Private Earth Terminal 

Private line 

Boston, MA 


Private Earth Terminal 

Private Line 

Chicago, IL 


Private Earth Terminal 

Private Line 

Cleveland, 

— 

Private Earth Terminal 

Private Line 

Dallas, TX 
Denver, CO 


Private Earth Terminal 
Private Earth Terminal 

Private Line 
MATS 

Fort Worth, TX 

~ 

Private Earth TerstineU. 

Private Line 

Houston, TX 

— 

Private Earth Terminal 

Private Line 

Kansas City, MO 

— 

Private Earth Terminal 

Private Line 

los Angeles, CA 

— 

Private Earth Terminal 

Private Line 

New York, NY 

— 

Private Earth Terminal 

Private Line 

San Diego, CA 

— 

Private Earth Terminal 

Private Line 

San Francisco, CA 

— 

Private Earth Terminal 

Private Line 

Seattle, WA 
Haslvington, DC 

Hrxvabu Earth Terminal, 
studio, microwave links 

Private Earth Terminal 

Private Line 


Coat Sunnary 


Model Segment 

Capital 

Expenditures 

Planning and 
Installation 

Annual 

Lease 

Annual 

O&HSA 

Annualized 

Cost 

Uplink 

420,000 

70,000 

198,787 

28,000 

356,048 

Downlink 

350,000 

0* 

0 

224,000 

316,328 

Voice Talkback 

28,000 

1,429 

113,070 

0 

120,833 

Administrative 

0 

160,100 

0 

96,500 

138,734 

Totals 

798,000 

231,529 

311,857 

348,500 

931,943 

Total Annualized Cost 

210,510»» 

61,077** 

311,857 

348,500 

931,944 


*Inatallation coats included in capital expenditures for downlink aeijinent. 
‘•Effective yearly coats for 5-year, 10.00 percent amortization. 


city. Satellite usage euid voice lines account for most of the lease costs. 
The bulk of O&M expenses are for the operation of the downlink earth 
terminals . 


3.2 APPALACHIAN EDUCATIONAL SATELLITE PROJECT (AESP) 

AESP is a network of aUoout 45, mostly small, cities and towns in or 
near the Appalachian Mountains between New York and Alabama. Each downlink 
orgfuiization, many of which are small colleges, receives community service 
programming originating in Lexington, Kentucky. In some cities, program- 
ming is locally distributed through a CATV outlet. 
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Each city in the network was assigned to one of three "levels'* depend- 
ing on its role in the network hierarchical structure. Level 1 denoted 
uplink site. Levels 2 and 3 were assigned on the basis of the city's role 
in the voice talkback subsystem: level-2 cities were equipped to call 

Lexington directly, while level-3 cities could talk only to the nearest 
level-2 city. In an actual programming environment, the level-2 cities 
would receive questions or conanents from viewers in the level-3 cities, 
screen them, and relay them to Lexington, possibly adding a few conmients 
of their own. An algorithm was programned into the nK>del to search through 
the level-2 cities to find the closest one to a given level-3 city. Only 
Lexington was assigned level 1; 22 cities were assigned to level 2 and 22 
to level 3. 

In the uplink segment, a new transmitting eaurth terminal was required 
because there was no cossnon-carrier earth terminal with tdiich to link. No 
microwave or video link was necessary since it was assumed that the trans- 
mitter would be colocated with the studio. Thus, there was only one option 
available. 

In the downlink segment, all cities have the same system utilization, 
so the cost of ? given path would be the same in each city in which it was 
feasible — if it was the most economical in one city, it would be the most 
economical in all cities. A city that was within 20 miles of smother 
network-city was permitted to establish a single microwave link to that 
city*. If the distance was 20-100 miles, a two-hop microwave link was 
permitted. However, the two-hop microwave option turned out to be the 
most expensive and even the one-hop microwave proved to be more expensive 
than a private earth terminal. Therefore, a private terminal was the pre- 
ferred option for all downlink segments except Lexington's. In the case of 
Lexington, from which the programming originates, there was no need for any 
downlink eqviipment, since the audience is local. 

Because of high utilization (87 hours per monthf* and low distances 
between cities, private line was more cost-effective for talkback them WATS 
in every case. ODD was not examined because at $33.00 per hour it would 
certainly have been considerably more expensive than either WATS or private 
line. 


The preferred configuration of the AESP network amd the results of 
exercising the model for this case are shown in Table 3-3. The annualized 
cost of about $900,000 is divided approximately equally between one-time 
capital, leases, and operations expenses. A five-year, 10-percent amortiza- 
tion rate was used to annualize the capital expenses and planning and instal 
lation charges. 

*Although one-hop microwave is often feasible at a distamce of SO miles or 
more, 20 miles was felt to be a conservative bound; i.e.,, if the distance 
is less than 20 miles, a one-hop microwave can always be built, whereas at 
20-50 miles, it depends on the terrain. 

**This was an early estimate of AESP talkback that was later revised. 
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f*bl9 3~3. APPALACHIAN EIXJCATIQNAL SATELLITE PRCXTECT 


Available Option 


City 

Oplink 

Downlink 

Voice 

Talkback 

Guntersville, AL* 

— 

Private Earth Terminal 

Private lane 

Rainsville, AL* 

— 

Private Earth Terminal 

Private Line 

Gadsden, AL 

— 

Private Earth ^rminal 

Private Line 

Huntsville, AL 

— 

Private Earth Terminal 

Private Line 

Claytem, GA* 

— 

Private Earth Terminal 

Private Line 

Rome, GA* 

— 

Private Earth Terminal 

Private Line 

Gainesville, GA 

— 

Private Earth Terminal 

Private Line 

Hazard, KT 
Lexington, Ky 

Private Earth Terminal 
colocated with studio 

Private Earth Terminal 
Monitors Only 

Private Line 
(tone 

Morehead, KY 

— 

Private Earth Terminal 

Private Line 

SMterset, KY 

— 

Private Earth Terminal 

Private Line 

Hagerstown, 

— 

Private Earth Terminal 

Private Line 

Cumberland, MO 

— 

Private Earth Terminal 

Private Line 

McHenry, MD 

— 

Private Earth Terminal 

Private Line 

Booneville, MS* 

— 

Private Earth Terminal 

Private Line 

Tupelo, MS 

— 

Private Earth Terminal 

Private Line . 

Scooba, MS 

— 

Private Earth Terminal 

Private Line 

Alfred, NY* 

— 

Private Earth Terminal 

Private Line 

Fredonia, NY 

— 

Private Earth Terminal 

Private Line 

Olean, NY 

— 

Private E^u:th Terminal 

Private Line 

Boone, NC* 

— 

Private Eeurth Terminal 

Private Line 

Marion, NC* 

— 

Private Earth Terminal 

Private Line 

Morganton, NC* 

— 

Private Earth Terminal 

Private Line 

Sylva, NC 

— 

Private Earth Terminal 

Private Line 

Athens, OH 

— 

Private Earth Terminal 

Private Line 

Ebensburg, PA* 

— 

Private Earth Terminal 

Private Line 

Edinboro, PA* 

— 

Private Earth Terminal 

Private Line 

Smethport , PA* 

— 

Private Earth Terminal 

Private Line 

Pittsburgh, PA 

— 

Private Earth Terminal 

Private Line 

Columbia, SC* 

— 

Private Earth Terminal 

Private Line 

Greenville, SC 

— 

Private Earth Terminal 

Private Line 

*Level 2 cities. 
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Table 3-3. (continued) 


Available Option (continued) 


City 

Uplink 

Oovmlink 

Voice 

Talkback 

Spartanburg, sc 

— 

Private Earth Terminal 

Private Line 

Chattanooga, TK* 

— 

Private Earth Terminal 

Private Line 

fteMinnville, ra* 

— 

Private Earth Terminal 

Private Line 

Johnson City, TH* 

— 

Private Earth Terminal 

Private Line 

Tazawell, Til* 

— 

Private Earth Terminal 

Private Line 

Co^evilla, TM 

" 

Private Earth Terminal 

Private Line 

LaFollette, TN 

— 

Private Earth Terminal 

Private Line 

StiOcleyville , VA* 

— 

Private Earth Terminal 

Private Line 

Dublin, VA 

— 

Private Earth Terminal 

Private Line 

ttorton, VA 

— 

Private Earth Terminal 

Private Line 

Petersburg, WV* 

— 

Private Earth Terminal 

Private Line 

Wheeling, WV* 

— 

Private Earth Terminal 

Private Line 

Romney, WV* 

— 

Private Earth Terminal 

Private Line 

Bethany, WV 

— 

Private Earth Terminal 

Private Line 


Cost Summary 


Hodel Segment 

Capital 

Expenditures 

Planning and 
Installation 

Annual 

Lease 

Annual 

OSM&A 

Annualized 

Cost 

Uplink 

285,000 

5,000 

133,225 

66 , 000 

275,726 

Downlink 

705,000 

0* * 

0 

132,000 

317,977 

Voice Tallcback 

88,000 

4,752 

134,257 

0 

158,722 

Administrative 

0 

160,100 

0 

96,500 

133,734 

Totals 

1,078,000- 

IHII^^QII 

267 ,482 

294,500 

891,159 

Total Annualized Cost 

284,373 

44,806 

267,482 

294,500 

891,161 

‘Level 2 cities. 

••Installation costs included in capital expenditures for 
■^Effective yearly costs for 5-year, 10.00 percent amortiz 

downlink segment, 
ation. 



3.3 WASHINGTON-ALASKA-MONTANA- IDAHO (WAMI) 

The WAMI network examined in this study is a medical -education network 
of 15 cities, 11 of which are in the northwestern United States and four in 
Alaska. The hxib of the network is Seattle, where the programming originates 
from the medical school at the University of Washington, the only medioal 
school in the four-state area. 
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Two types of progranning are carried by WAMI. In the first, Seattle 
and Fairbanks or Seattle and Bozeman transmit medical-school programs full 
duplex on different channels for three hours per week; this programming is 
also received in Pullman. In the other, Seattle emd Boise transmit clinical 
programs full duplex for 10 hours per vraek. This programming is received 
by clinics in all WAMI cities except Bozeman, Boise, and Pullman. 

The uplink cities are, therefore, Seattle, Fairbanks, Bozeman, and 
Boise. During operations, Seattle and one of the other three cities will 
be transmitting video signals full duplex to the satellite. Each requires 
a two-v«y earth terminal and a television studio. The studio is assumed to 
be colocated with the earth terminal, therefore no microwave link or terres- 
trial video line should be needed. The other 11 cities require receiving 
capability only. It is also necessary that all cities be able to talk back 
to Seattle. Fairbanks, Bozemam, and Boise can accomplish this with no 
additional facilities because they are transmitting video to Seattle. The 
other cities will need WATS, private line, or ODD service to meet their 
talkback needs. 

In the Federal Cities case, it was learned that for the given set of 
asstanptions, the private earth terminal provides the least expensive down- 
link path. Consequently, this was the only downlink option specified for 
the 11 receive-only cities. Since each receiving site is a single clinic 
or university, it was assumed that there would be no need for local distri- 
bution of the signal. 

The preferred configuration of this network and the results of exercis- 
ing the model for this case are shown in Table 3-4. The detailed report for 
the uplink segment (not shown) indicates that neither the Seattle channel 
nor the Fairbanks-Bozeman-Boise channel was used enough to exceed the mini- 
mum charge for trsuisponder leasing. Equipment and lease costs for the four 
uplink cities were identical, except for the allocation of satellite usage 
costs. On the downlink segment, each city showed the same costs for a 
receive-only earth terminal and two monitors. The four uplink cities 
already had the cost of their earth terminals allocated to the uplink side 
and therefore incurred costs only for the monitors . In the talkback seg- 
ment, s»3st cities were suited for private lines; only Bethel, Alaska was 
suited for WATS. Leases ranged from $217 per month in Anacortes, Washington 
(68 miles from Seattle) to $941 in Bethel (1,876 miles away). 


3.4 "EAST" CASE 

The "East" case is a hypothetical aggregation of several smaller net- 
works. The purpose of analyzing such a configuration was to examine econ- 
omies that would result from sharing facilities. The total system consists 
of the Federal Cities network, 10 VA hospital sites, and 70 AESP cities, 

25 of which are planned additions to the AES? network. Johnson City, 
Tennessee, is the only city that is a member of more than one network. 


Table 3-4. WASHINGTON-ALASKA- 

MONTANA-IDAHO (WAMI) NET<ORK 

Available Option 

City 

Uplink 

Downlink 

Voice Talkback 

Seattle, WA 

Private Earth Terminal 

Monitor:^ Only 

— 

Fairbanks, AK 

Private Earth Terminal 

Monitors Only 

— 

Bozeman, MT 

Private Earth Terminal 

Monitors Only 

— 

Boise, ID 

Private Earth Terminal 

Monitors Only 

— 

Spokane, MA 

— 

Private Earth Terminal 

Private Line 

Pullman, NA 

— 

Private Earth Terminal 

Private Line 

Anchorage , AK 

— 

Private Earth Terminal 

Private Line 

Bllllnus, MT 

— 

Private Earth Terminal 

Private Line 

Ketchikan, AK 

— 

Private Earth Terminal 

Private Line 

Whitefish, MT 

— 

Private Earth Terminal 

Private Line 

Anacortes, WA 

— 

Private Earth Terminal 

Private Lina 

Pocatello, ID 


Private Earth Terminal 

Private Line 

Bethel, AK 


Private Earth Terminal 

WATS 

Missoula, MT 



Private Earth Terminal 

Private Line 

Groat Falls, MT 

— 

Private Earth Terminal 

Private Line 


Cost Sommary 


Model Segment 

Capital 

Expenditures 

Planning and 
Installation 

Annual 

Lease 

Annual 

O&MSA 

Annualized 

Cost 

Uplink 

1,140,000 

20,000 

266,450 

264,000 

336,455 

Downlink 

180,000 

0^ 

0 

33,000 

80,483 

Voice Talkback 

22,000 

1,105 

58,572 

0 

64,667 

Administrative 

0 

160,100 

0 

96,500 

138,734 

Totals 

1,342,000^^ 

181, 205*^ 

325,022 

393,500 

1,120,339 

Total Annualized Cost 

354,016 

47,801 

325,022 

393,500 

1,120,339 


•Installation costs included with capital expenditures for downlink segment. 
••Effectively yearly costs for 5-year, 10.00 percent amortization. 


The uplink options are the S£une as those of the previous cases. Each 
of the three uplink cities (Lexington, Philadelphia, Washington) bears the 
cost of satellite time and a transmitting earth terminal. Washington also 
requires seven studios and video lines because the programming on the 
Federal Cities network originates from seven locations. The model chose 
microwave over AT&T land lines for the video links. 

Five paths are feasible in the downlink segment: (1) A private earth 

terminal colocated with monitors is available in all cities. (2) If a 
CATV earth terminal is located within 20 miles, the signal may be received 
and distributed through the cable systems. (The 20-mile figure is based 
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on estimatad "range" of a CATV network beyond the earth terminal.) For this 
case, the only costs would be for equi^anent to receive the additional fre- 
quency at the earth terminal and feed it into the local distribution net- 
work, and for user subscription charges. (3) One-hop microwave from an 
existing terminal is a feasible option if the sites are less than 20 miles 
apart; (4) two-hop microwave is feasible if they are less than 100 miles 
apart. (5) If a downlink city is also am uplink city (Lexington, for 
exan^le) , the cost of the earth terminal has already been allocated in the 
uplink segment; therefore, earth terminal costs will not be counted in the 
downlink segment as well. 

Since the cost of the five paths is not dependent on utilization, each 
path would cost the same in every city. As in the AESP case, the microwave 
options, because of their high capital costs, are more expensive than the 
private eaurth terminal option, which is available in every city. However, 
the CATV path is less expensive than the private earth terminal. The 
monitors-only option (Lexington) is the least expensive of all because no 
additional equipment is required. The least expensive available downlink 
option for each city is identified in Table 3-5. 

In the tallcback segment, ODD is the most cost-effective method for the 
low-utilization routes to Lexington and Philadelphia. WATS is better for 
some city pairs where utilization is three hours per month or more. For 
the 14 federal cities, utilizations range from 33 to 134 hours per month, 
which is sufficient to make private line the most attractive option in most 
cases . 

The preferred configuration for this network and the models' costs 
output for it are shown in Tadsle 3-5. The costs are not directly comparable 
to those obtained for the Federal Cities or AESP cases because cost esti- 
mates for most of the uplink and some downlink cost elements were updated; 
talkback hours were set at two hours per month except for the 14 federal 
cities; and the eunortization rate was adjusted to be 8 years at 10 percent. 

liie principal economy gained by these three organizations' sharing 
facilities is in channel utilization. Alone, neither Washington nor Lexing- 
ton met the 1800-hour minimum charge for a traunsponder ch’ tinel, but together 
they did amd saved about $147,000 per year. Common facilities in Johnson 
City, Tennessee (the only downlink city in more than one of the three net- 
works) would save about $5,200; common taDcback facilities would save the 
negligible aitmunt of about $72 per year. 

The total network required a one-time investment of about $5.1 million 
and incurred annual lease and maintenance costs of about $1.1 million. 
Assuming an amortization rate of 10 percent for 8 years, annual expenses 
were about $2.0 million. Only about 7 percent of this figure is saved as 
a result of sharing. In the next case to be discussed, the "West" Case, 
there is much more overlap between the subnetworks and consequently more 
significant savings . 
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Ubl0 3‘5. 

"EAST” CASE 



Salactad Options 


City 

Uplink 

Downlink 

Voice 

Talkback 

Phllftd*l|diia, PA 
OC 

lAxinqtoni KY 
Atlanta. GA 

Privata Earth Terminal 
studio, microwave 

Private Earth Terminal 
studio, microwave 

Private Earth Terminal 
studio, microwave 

Monitors Only 
Private Earth Terminal 

Private Line 

Boston, MA 

— 

Private Earth Terminal 

Private Line 

Chicago, IL 

— 

Private Earth Terminal 

Private Lina 

Clavoland, (Ml 

— 

Private Earth Terminal 

Private Line 

Oallaa, TX 

— 

Private Earth Terminal 

Private Line 

Danvar, CO 

-- 

private Earth Terminal 

WATS 

Fort worth, TX 

— 

Private Earth Terminal 

Private Line 

Houston, TX 

— 

Private Earth Terminal 

Private Line 

Kansas City, MO 

— 

Private Earth Terminal 

Private Line 

Los Angolas, CA 

— 

Private Earth Terminal 

Private Line 

Now York, KY 

— 

private Earth Terminal 

Private Line 

San Diago, CA 

” 

Private Earth Terminal 

Private Line 

San Francisco, CA 

— 

Private Earth Terminal 

Private Line 

Seattla, HA 

— 

Private Earth Terminal 

Private Line 

Group A (25) 

— 

Private Earth Terminal 

DDD 

Group B (8) 

" 

Private Earth Terminal 

ODD 

Group C (3) 

— 

Private Eartii Terminal 

DDD 

Groui D (8) 
Group E (0) 
Group F (16) 
Group G (9) 

— 

Linl< to CATV 
Link to C,\TV 
Link to CATV 
Link to CATV 

DDD 

DDD 


cost SuTOTary 


Model Segment 

Capital 

Exixinditurcs 

Planning and 
Installation 

Annual 

Lease 

Annual 

O&M&A 

Annual icud 
Cost 

Uplink 

3,585,000 

189,000 

393,200 

300,000 

1,400,612 

Downlink 

915,000 

109,200 

7,920 

129,300 

329, 347 

Voice Talkoack 

136,000 

1,4/9 

138,118 

0 

183,887 

Administrative 

0 

160,100 

Q 

96,500 

126,310 

Totals 

4,636,300 

45",77‘- 


am 

2,040,353 

Total Annualized Cost I 

869,139* 

86,183* 

BH9 


2,940, 339 


♦Effective yearly costs for 8-year, 10.00 percent amortiration. 
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Table J-5. (continued) 


DEFINITION OF CITY GROUPS AND AVAILABLE OPTIONS 

GROUP A] Private earth 

GROUP B: (continued) 

GROUP F: Private earth 

terminal downlink only 

Sylva, NC 

terminal, CATV Link, or 

two- hop microwave; no 

Dublin, GA 

Athens, OH 

talkback required 

Fayetteville, NC 
Salisbury, NC 

Pittsburgh, PA 

Florence, AL 

Oteen, NC 

GROUP C: Private earth 

Decatur, AL 

Altoona, PA 

terminal or one- or two- 

Birmingham, AL 

Hllkes-Barre, PA 

hop microwave 

Chats worth, GA 

Johnson City, TN 


Dalton, GA 

Clarksburg, HV 

Olean, NY 

Barbourville, KY 

Guntersville, AL 

Dublin, VA 

Crooksville, OH 

Bainsville, AL 

Bethany, WV 

Elkins, WV 

Clayton, GA 


Wytheville, VA 

Rome, GA 

GROUP D: Private earth 

Sparta, TN 

Boone, NC 

terminal or CATV Link 

Crossville, TN 

Marion, NC 

Salem, VA 

Cak Ridge, TN 

Morgan ton, NC 

New Albany, MS 

Ebensburg, PA 

Beckley, WV 

Anderson, SC 

Edinboro, PA 

Hagerstown, MD 

N. Wilkesboro, NC 

Smethport, PA 

Booneville, MS 

Corinth, MS 

Tazewell, TN 
Petersburg, WV 

Chattanooga, TN 
McMinnville, TN 


Stickleyville, VA 

Columbia, SC 


Romney, WV 
Scooba, MS 

Wheeling, WV 

GROUP G: Private earth 

Alfred, NY 

GROUP Es Private earth 

terminal, CATV Link, one- 

Morehead, KY 

terminal, CATV Link, 

or two-hop microwave; no 


or two-hop microwave 

talkback required 

GROUP B: Private earth 

Gadsden, AL 

Cumberland , KY 

terminal or two-hop 

Huntsville, AL 

Frostburg, MD 

microwave 

Cumberland, MD 

Salamanca , NY 


Greenville, SC 

Erie, PA 

Hazard, KY 

Spartamburg, SC 

Emporium, PA 

Somerset, KY 

Cookeville, TN 

Nelsonville, OH 

McHenry, MD 

LaFollette, TN 

New Lexington, OH 

Tupelo, MS 

Norton, VA 

Moundsville, WV 

Fredonia, NY 

Gainesville, GA 

wellsburg, WV 


3.5 "WEST" CASE 

The "West" case is a hypothetical aggregation of several smaller net- 
works. It includes the Federal Cities network, the WAMI network, and 32 VA 
hospitals. Also included is the Denver Research Institute (DRI) , a network 
of 10 sites in Colorado, Montana, and Utah. There are three California 
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n«tworks Included: Project Interchemge (5 sites), Education (27 sites), and 

Conferencing (3 sites) . There is considerable overlap among the various 
subnetworks, the 106 sites representing only 82 downlink cities. 

McMt of the sane uplink and downlink options that were used in the 
East case were avail 2 d>le in the West. The major difference is that the one- 
hop and t’ o-hop microwave options were not considered because of their high 
cost, as demonstrated in Section 3.2. As in the East case, the cheapest down- 
link option was SK>nitors only, but this is avail2d3le only for those cities 
that are uplink cities also. Linking to a CATV system again was found to 
be cheaper than using a private earth terminal. 

There are a total of nine uplink cities in the West network: Seattle, 

Fairbanks, Bozeman, and Boise are the uplinks for WAMI; Seattle is also 
the uplink for the VA cities; Washington is the hub of the Federal Cities 
network; Moffett Field, near San Freuicisco, is the uplink center for all 
three of the California networ)cs. In the case of the California Conferenc- 
ing, Sacramento and either Moffett Field or Los Angeles transmit full duplex 
video; finally, Denver is the uplink city for the DRI group. Transmissions 
for all six subnetworks can be accommodated on three satellite channels, 
assuming all of them operate during normal business hours. 

Talkback requirements are two hours per month, except for the Federal 
Cities network, «diere lines must be open whenever transmission is in progress. 
No taDcback is required for the California Conferencing, since all three 
sites are transmitting full duplex. The options in this segment are similar 
to those of the East case. DDD was the preferred alternative for three 
hours per month usage or less; the crossover point varied according to the 
distance between the two cities. Private line was the medium generally pre- 
ferred for the 14 federail cities due to the high utilization of the lines. 

The preferred configuration for this network and the model's cost out- 
put for it are shown in Table 3-6. The total network required capital and 
installation expenditures of $9.2 million. Amortized annual expenses were 
$3.6 million, of which $0.9 million were for leases, $1.0 million for oper- 
ations and maintenance, and $1-7 million for payment on capital equipment. 

The biggest cost component was $7.8 million capital expenditures (1.4 million 
per year amortized) for uplink earth terminals, studios, and associated 
installation costs. 

Savings resulting from sharing occur in all three major segments of the 
model. In the uplink, only three transponder frequencies are required to 
serve the member networks, instead of the nine frequencies that would be 
required without sharing. This reduction in the number of frequencies 
saves approximately $940,000 annually. Sharing downlink equipment eliminates 
the need for 24 earth terminals and video links, which results in annual sav- 
ings of approximately $78,000. Common taDcback facilities could save about 
$7,600 per year; these savings would occur primarily on equipment expenditures. 


mibi* X. ■muT* CASE 


S«laet«d OptlOM 


City 

Uplink 

OOMillnk 

)h>iee Talkback 

Ssattle, MA 

Private Earth Tamlnalt 
link rsqulrsd 

Mmltore Only 


Private 

Line 

ralttosiiks, AK 

Private Earth TsrBlnali 
no link required 

Monitors Only 



— 

•ocsman, NT 

Private Earth Tenslnali 
no Hide requlrad 

Nonltore Only 


DM 


Boiss, a 

Private Earth Tenslnali 
no link required 

Monitors Only 


ODD 


Noffstt Field, CA 

Private Barth Teaainali 
link required 

— 



— 

Ssecsswnto, CA 

Private Barth Tenlnalt 
link required 

— 



-- 

Los An^slss, CA 

Private Earth Terminal i 
link required 

Monitors Only 

1 

Private 

Line 

Dsnvse, CO 

Private Earth Terminal t 
link required 

Monitors only 

i 

Private (to Seattle) 
MATS (to Washinqton) 

Msshlngton, DC 

Private Earth Terminal) 
link required 

-• 



— 

11 Fsdsrsl Cltlss 

— 

Private Earth 

Terminals 

Private 

Line 

Grand Junction, CO 

— 

CATV Unk 


ODD 


Hsnlo Park, CA 

— 

Private Earth 

Terminals 

ODD 


Group A (48) 

— 

Private Earth 

Termj.'-ii 

DOE 


Group B (16) 

— 

CATV Unk 

1 

ODD 



Cost Suanwry 


Model Seqmeat 

Capital 

Planninq and 

Annual 

Annual 

Annualized 

Expenditures 

Installation 

Lease 

06M&A 

Cost 

Uplink 

7,430,000 

442,000 

681,200 

774,000 

2,930,756 

Downlink 

867,300 

121,700 

3,780 

1.54,200 

343,360 

Voice Talkback 

180,000 

2,036 

202,888 

0 

237,007 

Administrative 

0 

160,100 

0 

96,500 

126,510 

Totals 

8,477,300 

725,836 

887,867 

1,024,700 

3,637,630 

Total Annualized Cost 

1,589,016* 

136,053* 

887,867 

1,024.700 1 

3,637,636 


*Effeetive yasrly costs for 8-yesr, 10.00 percent aaiottisstion. 
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Table 3-6. (continued? 

DEFINITION OF CITY GROUPS 

Q90139 A: Private downlink earth terminal 

GKXJP Bt CATV Link 

Pullman, WA 
Anciwrage, AK 
Ketchikan, AX 
whitefish, MT 
Eethel, AX 
Phoenix, AZ 
Tucson, AZ 
Sheridan, WY 
Fort Lyon, CO 
American Lake, WA 
Vancouver, WA 
Walla Walla, WA 
Roseburg, OR 
White City, OR 
Fort Harrison, MT 
Miles City, MT 

Fresno, CA 
Livermore, CA 
Long Beach, ('A 
Martinez, CA 
Sepulveda, CA 
Portland, OR 
Chico, CA 
Torrance, CA 
Ar^win, CA 
Areata, CA 
Azuza, CA 
Belmont, CA 
Deniniguez, CA 
Clar«nont, CA 
Costa Mesa, CA 
Irvine, CA 

Laverne, CA 
La Mirada, CA 
Newhall, CA 
Pomona, CA 
Otutgt, CA 
Horaga, CA 
Redlands, CA 
San Raphael, CA 
San Luis Obispo, CA 
Stockton, CA 
Thousand Oaks, CA 
Whittier, CA 
Vallejo, CA 
Pueblo, CO 
Logan, UT 
Moab, UT 

Spokane, WA 
Billings, MT 
Anacortes, WA 
Pocatello, ID 
Missoula, MT 
Great Falls, MT 
Albuquerque, NM 
Prescott, AZ 
Cheyenne, MY 
Salt Lake City, UT 
Palo Alto, CA 
Reno, MV 
Hayward, CA 
Turlock, CA 
Helena, MT 
Kalispell, MT 


3.6 SMSA CASES 

Several cases vBze developed on the basis of a network of Standard 
Metropolitan Statistical Areas (SMSAs) . These represent urban areas within 
the United States. Cities chosen for this network fall into at least one 
of the following categories: (1) the top 20 SMSAs, (2) the largest city in 

each state, and (3) the state capitals. The purpose of those cases was to 
exanine the increoental cost impact of adding additional cities to a net- 
work. Although increasing the size of the network must increase the total 
cost, there are econonies of scale that will reduce the average cost of ser- 
vice provided. 

Programming for this hypothetical network is produced and uplinked 
from Washington, O.C.,five hours per day, five days per week, for a total 
of 1,300 hours per year. All transmissions are to take place during business 
hours; therefore, off-peak rates for satellite usage apply. Voice talkback 
is required for 2 minutes per hour of programming for each downlink city; 
this is equivalent to 3.6 hours per nonth. 

Scenarios were run for four different downlink city groups. The first 
contained downlinks for the 10 regional federal offices. The second case 
contained the 10 regional office cities plus all other cities ranked in the 
top 20 SMSAs according to the 1970 census. KansM City and Denver, 
are Federal regional offices and not included in the top 20 SMSAs; 

therefore, this second group contains 22 cities. The third case included 
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an additional 42 citioa ropraaantit^ SMSAa at or naar state capitals. The 
fourth and final case inclined 14 i^ditional state capitals that were nor 
cMisidered SMSAa. 

Four uplink transnissi^n options ware available trcm Washington. All 
included costs for a high-capability color video studio and the satellite 
transporter lease. An earth station with transmit capability was found to 
exist in the Washington area; the signal could be uplinked either j'tvjm this 
earth static or from a new station built for this purpose. Because of space 
r^uirMBonts, the earth terminal could not be colocated witi. the studio, and 
a microwa^^ or terrestrial video link \rauld be required to transmit the sig- 
nal betiMen the stikllo and the earth station. 'Rius, there are four possible 
paths: microwave or terrestrial link to a new or existing earth station. 

In the do%mlink segment, all cities are assumed to be capable of con- 
stricting a receive-only earth station sufficiently close to the viewing 
area that no local distribution system is required. Washington is the only 
city allowed the "monitor «ily" ootion because it is assumd that the view- 
ing area will be colocated with studio, and therefore no Interaction 
with the satellite will be necessary for this city. Other options depend 
on the availability of existing earth terminals to receive the satellite 
signal. A scan of the earth terminal data base showed that receive capabil- 
ity earth terminals exist within 15 miles for 69 of the 78 downlink cities 
considered, 'niese cities would be permitted to receive the signal on the 
Isorrowed" earth terminal and bring the signal to its audience via a micro- 
wave link. Sixty-one of those 69 cities have at least one cable TV earch 
station. For these cities it would be permissible to buy or rent capacity 
on the CATV earth station, or to receive the signal on a private terminal 
and use the CATV systmn to transmit the signal locally. 

Since the availi^le options or city parameters did not change among 
the four cases, an option preferred in one case for a particular city will 
be preferred in all cases for that city. Table 3-7 shows the available 
downlink options by city, the selected downlink option, and v^ich of the 
four cases each city vas included in. In all cases, talkback utilization 
was low enough to make direct dial the preferred talkback option, although 
3.6 hours is fairly close to the point v^ere WATS becomes feasible. 

Table 3-8 (a-d) shows cost summaries for these four scenarios. Up- 
link costs are identical because the structure of that segment is unchanged. 
Downlink costs grow disproportionately from $18,904 in annualized cost to 
$209,499 while the number of cities expands from 10 to 78. However, many 
of the cities added for the larger scenario have no earth terminals to link 
to and thereby incur additional dowlink costs. Because uplink costs are con- 
stant, overall annualized costs per city decrease significantly, from roughly 
$44,000 in the federal regions scenario to $9,800 in the full 78-city sce- 
nario. The incrmaental cost of adding a city, however, is only about $3,300 
per year. 
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rabie 

3-7. SHGA CASES 





City/State 

pri- 

vate 

E-T 

Micro- 

wave 

from 

E-T 

Cable 

TV 

E-T 

Mon- 

itors 

Only 

Selected 

Path 

B 

b 

c 

d 

Boston, MA 

X 

X 

X 


CATV link 

X 

X 

X 

X 

Now York, NY 

X 

X 

X 


CATV link 

X 

X 

X 

X 

Philadelphia, PA 

X 

X 

X 


CATV link 

X 

X 

X 

X 

Atlanta, GA 

X 

X 

X 


CATV link 

X 

X 

X 

X 

Chicago, IL 

X 

X 

X 


CATV link 

X 

X 

X 

X 

Dallas, TX 

X 

X 

X 


CATV link 

X 

X 

X 

X 

Kansas City, NO 

X 

X 

X 


CATV link 

H 

X 

X 

il 

Denver, CO 

X 

X 

X 


CATV link 

D 

X 

X 

H 

San Prancisco, CA 

X 

X 

X 


CATV link 

X 

WM 

X 

M 

Seattle, WA 

X 

X 

X 


CATV link 

X 

n 

X 

n 

tos Angeles, CA 

X 

X 

X 


CATV link 


X 

X 

X 

Detroit, MI 

X 

X 

X 


CATV link 


X 

X 

X 

Pittsburgh, PA 

X 

a 

.t 

X 


CATV link 


n 

X 

X 

St. Louis, NO 

X 

X 

X 


CATV link 


D 

X 

X 

Baltiaore, MS 

X 

X 

X 


CATV link 


X 

X 

X 

ClevelaM, OH 

X 

X 

X 


CATV link 


X 

X 

X 

Houston, TX 

X 

X 

X 


CATV link 


X 

X 

X 

NeMrk, NJ 

X 

X 

X 


CATV link 


X 

X 

X 

Minneapolis, KN 

X 

X 

mm 


CATV link 


X 

X 

X 

Orange County, CA 

X 

X 



CATV link 


X 

X 

X 

Miliwukee, Ml 

X 

X 

MM 


CATV link 


X 

X 

X 

Washington, DC 

X 

X 

X 

X 

Monitors 


X 

X 

X 

Tacosia, WA 

X 

X 

X 


CATV link 



X 

X 

Salem, OP 

X 

X 

X 


CATV link 



X 

X 

Sacrmento, CA 

X 

X 



Private E-T 



X 

X 

Reno, NV 

X 

X 



Private E-T 



X 

X 

Boise, ID 

X 

X 

X 


CATV link 



X 

X 

Great Palls, MT 

X 




Private E-T 



X 

X 

Salt Lake City, UT 

X 

X 

X 


CATV link 



X 

X 

Phoenix, AZ 

X 

X 

X 


CATV link 



X 

X 

Albuquerque, NM 

X 

X 

X 


CATV link 



X 

X 

Pargo, NO 

X 

X 

X 


CATV link 



X 

X 

Sioux Palls, SO 

X 

X 

X 


CATV link 



X 

X 

Lincoln, NE 

X 




Private E-T 



X 

X 

Topeka, KS 

X 




Priv4-c E-T 



X 

X 

(%lahoma City, OK 

X 

X 

X 


CATV link 



X 

X 

Austin, TX 

X 

X 

mm 


CATV link 



X 

X 

Des Moines, 10 

X 

X 



CATV link 



X 

X 

Little Rock, AR 

X 

X 

MM 


CATV link 



X 

X 

Baton Rouge, LA 

X 

X 

■fl 


CATV link 



X 

X 

Madison, wi 

X 

X 

X 


CATV link 



X 

X 

Springfield, IL 

X 

X 

X 


CATV link 



H 

a 

Jackson, MS 

X 

X 

X 


CATV link 



D 


Lansing, Ml 

X 

X 

X 


CATV link 



X 

H 

Indianapolis, IN 

X 

X 

X 


CATV link 



X 

D 

Lexington, KY 

X 

X 

X 


CATV link 



X 

X 

Nashville, TN 

X 

X 

X 


CATV link 



X 

X 

Montgomery, AL 

X 

X 

X 


CATV link 



X 

X 

» 

Tallahassee, PL 

X 

X 



Private E-T 



X 



(continued) 
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Tabla 3-7. (continued) 


City/State 


Coluobus, OH 
Columbia, SC 
Raleigh, NC 
Richmond, VA 
Charleston, SC 
Wilmington, OE 
Harrisburg, PA 
Trenton, NJ 
Albany, MY 
Hartfc d. Cl 
Provi ;'- :e, KI 
Nancheauer, vH 
Lewiston. ME 
Honolulu, HI 
Bismarck, NO 
Olympia, WA 
Carson City, NV 
Helena, MT 
Santa Fe, MM 
Pierre, SO 
Frankfort, KY 
Dover, DE 
Concord, MH 
Augusta, ME 
Cheyenne, WY 
Jefferson City, MO 
Annapolis, MD 
Montpelier, VT 
Juneau, AK 


Cable 

TV 

E-T 


Mon- 

itors 

<^ly 



Selected 

Path 


CATV link 
CATV link 
CATV link 
CATV link 
CATV link 
CATV link 
CATV link 
Private E-T 
CATV link 
CATV link 
Private E-T 
CATV link 
CATV link 
Private E-T 
CATV link 
CATV link 
Private E-T 
Private E-T 
CATV link 
CATV link 
CATV link 
Private E-T 
CATV link 
Private E-T 
Private E-T 
Private E-T 
CATV link 
Private E-T 
CATV link 


b c 


3.7 FEDERAL REGIONAL PR(DGRAMMING 

This case is similar to 6d except that the progreun production is done 
in 10 different cities instead of one. Each Federal regional office is 
assumed to broadcast 2.5 hours of programning per week; all 10 offices share 
the same transponder channel. The resulting 1,300 hours per year of cheumel 
utilization all occur during daylight (off peak) hours. 

( Available options for the uplink and downlink segments are the same as 

in the SMSA cases. For uplink, it is assumed that any city that has a trans- 
mit capability earth station within 15 miles may link to it. Five of the 10 
cities have such a capability; the rest will be forced to incur costs for 
building their own transmitting earth stations. 
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nblm OVERALL COST SUMMARY — SMSA CASE 1 


PEDERAL REGIONAL OFFICES 


OVERALL COST SUMMARY 



CAPITAL 

EXPENDITURES 

PLANNING AND 
INSTALLATION 

ANNUAL 

LEASE 

ANNUAL 

OtMSA 

ANNUALIZED 

COST 

UPLINK 

199400. 

51000. 

180000. 

101000. 

331406. 

DOWNLINK 

77000. 

3000. 

1800. 

1000. 

18904. 

VOICE TALKBACK 

145. 

400. 

13478. 

0. 

13588. 

ADMINISTRATIVE 

0. 

160000. 

0. 

85000. 

117208. 

TOTALS 

276545. 

214400. 

195278. 

187000. 

481107. 

ANNUALIZED COST 

55669. 

43159. 

195278. 

187000. 

481107. 


EFFECTIVE YEARLY COSTS FOR 8 YEAR* 12.00 PERCENT AMORTIZATION ♦ 481107. 
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Ublrn 3-$(b) . OVBWUX COST SUNHMty -- »(SA CASE 2 


FEDERAL REGIONAL OFFICES AND TOP 20 SHSA'S 


OVERALL COST SUMMARY 



CAPITAL 

EXPENDITURES 

PLANNING AND 
INSTALLATION 

ANNUAL 

LEASE 

ANNUAL 

OtMtA 

ANNUALIZED 

COST 

UPLINK 

199400. 

51000. 

180000. 

101000. 

331406. 

DOWNLINK 

162700. 

6300. 

3780. 

2200. 

40000. 

VOICE TALKBACK 

305. 

840. 

28305. 

0. 

28535. 

ADMINISTRATIVE 

0. 

160000. 

0. 

85000. 

117208. 

TOTALS 

362405. 

218140. 

212085. 

188200. 

517150. 

ANNUALIZED COST 

72953. 

43912. 

212085. 

188200. 

517150. 


EFFECTIVE YEARLY COSTS FOR 8 YEAR. 12.00 PERCENT AMORTIZATION $ S17150. 
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Trntl* 3~i(c). OVERALL COST SUMMARY 


SMSA CASE 3 


FEDERAL REGIONAL 

OFFICES. TOP 

20 SMSA'S. 

AND SMSA STATE 

CAPITALS 




OVERALL COST 

SUMMARY 




CAPITAL 

PLANNING AND 

ANNUAL 

ANNUAL 

ANNUALIZED 

EXPENDITURES 

INSTALLATION 

LEASE 

OSMSA 

COST 

UPLINK 

199400. 

51000. 

180000. 

101000. 

331406. 

DOWNLINK 

551800. 

72000 , 

9720. 

19900. 

155193. 

VOICE TALKBACK 

914. 

2520. 

84914. 

0. 

85605. 

ADMINISTRATIVE 

0. 

160000. 

0. 

85000. 

117208. 

TOTALS 

752114. 

285520. 

274634. 

205900. 

689413. 

ANNUALIZED COST 

151403. 

57476. 

274634. 

205900. 

689413. 

EFFECTIVE YEARLY 

COSTS FOR S 

YEAR. 12.00 

PERCENT AMORTIZATION $ 

689413. 


r«Ai« 3~$(d). OVIDALI, COST SUWIARY — SMSA CASE 4 


FEDERAL RE6I0NAL OFFICESt TOP 20 SMSA'S. AND STATE CAPITALS 


OVERALL COST SUMMARY 



CAPITAL 

EXPENDITURES 

PLANNING AND 
INSTALLATION 

ANNUAL 

LEASE 

ANNUAL 

OSMSA 

ANNUALIZED 

COST 

UPLINK 

199400. 

51000. 

180000. 

101000. 

331406. 

DOWNLINK 

710700. 

117500. 

10980. 

31800. 

209499. 

VOICE TALKBACK 

1117. 

3080. 

103784. 

0. 

104629. 

ADMINISTRATIVE 

0. 

160000. 

0. 

85000. 

117208. 

TOTALS 

911217. 

331580. 

294764. 

217800. 

762742. 

ANNUALIZED COST 

183430. 

66748. 

294764. 

217800. 

762742. 


EFFECTIVE YEARLY COSTS FOR 8 YEAR. 12.00 PERCENT AMORTIZATION — ♦ 762742. 
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R«iults for this case are shovm in Tables 3-9 and 3-10. Tatble 3-9 
shows the results for the uplink segment, and Table 3-10 may be compared 
with Table 3-8d, which shows the SMSA scenario for a single uplink city. 
Those uplink sites that cannot use an existing earth terminal must buy and 
maintain a new one. This results in an additional cost of about $120,000 
per year per eaurth terminal, or $600,000 in all. In addition, a studio is 
required for each uplink site. It was assumed that the studios used would 
be less expensive than the full-capability studio assumed for the SMSA 
case. Even so, since 10 are required instead of 1, an additional $200,000 
in annualized cost is required. Downlink costs are somewhat lower because 
10 of the cities will no longer require a receive capability. Overall, the 
cost impact of 10 regional broadcast centers is consideraUsle , resulting in 
roughly a doubling in system cost. 


3.8 COST ALLOCATION CASE 

One scenaurio was developed primarily to test the model's cost alloca- 
tion capability. This case is similar to Case 2 in Section 3.6. The network 
consists of a single uplink city (Washington) broadcasting to both a network 
of 10 Federal regional offices amd a network of the top 20 SMSAs. Because 
eight of the 10 Federal regional offices are located in cities that axe 
also in the top 20 SMSA's, there are only 22 cities in the combined network. 

It was assumed that the Federal network would be on the air 5 hours 
per day, or 1,300 hours per year, during off-peadc hours. The SMSA network 
would be on the air 4 hours per day, 1,040 hours per year, during peak hours. 

Each of the uplink and downlink cities must be associated with the 
Federal network, the SMSA network, or both. For those cities that are asso- 
ciated with one network but not the other, the entire uplink or downlink cost 
attributable to that city is allocated to the proper organization. If the 
city is associated with both orgami rations, cost must be allocated. This 
was done by assigning weighting factors to the hours of utilization accord- 
ing to the ratio of peak to off-peak hourly costs. Thus, the SMSA network 
incurs most of the uplink costs, even though it uses fewer transponder hours, 
because it is runnii^ at peak times. Voice talkback is an unweighted alloca- 
tion based on talkback hours, and administrative costs are allocated in the 
same fashion as the downlink costs. 

Table 3-11 shows the results of this scenario. Because the SMSA network 
hats more sites than the Federal network and since it must pay peak-hour sur- 
charges in addition, it is allocated about 65 percent of the total network 
cost. The allocated Federal network cost of $332,221 is lower than the 
$481,107 cost estimated for the Federal network alone in Case 1 of the SMSA 
cases. 
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r«M« J-». tmam cosn ax cm — fidiiul Riaiaiuu. PRoamiauMG 


I'CMKM. itCOlOMM. 

! 

I 

f 






UPLIWC COSTS 

BY CITY 



cm 

CAPITAL 

INSTALL 

LEASE 

OlHIA 

annualized 

Mtrm 

3f400. 

16000. 

IBOOO. 

11700* 

44878. 


PEAK HR 

OPFPK MR 

STUDIO 

GRD LXM( 



0. 

130* 

1. 

1. 


CITY 

CAPITAL 

INSTALL 

LEASE 

OINtA 

ANNUALIZED 

Nty YORK 

SfAOO. 

16000. 

laooo. 

11700. 

44878. 


PEAK HR 

orrpK m 

STUDIO 

ORD LINK 



0. 

130. 

1* 

1. 


CITY 

CAPITAL 

INSTALL 

LEASE 

OSNIA 

ANNUALIZED 

^HILADCLMIA 

362900. 

46000* 

16000. 

106700. 

186882. 


PEAK Mt 

OPFPK MR 

STUDIO 

ORD LINK 



0. 

130. 

1. 

1. 


CITY 

CAPITAL 

INSTALL 

LEASE 

OSNIA 

ANNUALIZED 

ATLANTA 

59400. 

16000. 

18000. 

11700. 

44878. 


PEAK HR 

OPFPK HR 

STUDIO 

ORD LINK 



0. 

130. 

1. 

1. 


CITY 

CAPITAL 

INSTALL 

LEASE 

OSNIA 

ANNUALIZED 

CHICAGO 

262900. 

46000. 

ibooo. 

106700. 

186882. 


PEAK HR 

OFFFK HR 

STUDIO 

ORD LINK 



0. 

130. 

1. 

1. 


CITY 

CAPITAL 

install 

LEASE 

OINtA 

annualized 

DALLAS 

262900. 

46000. 

180C0. 

106700. 

1S68B2. 


PEAK HR 

OPFPK HR 

STUDIO 

GRD LINK 



0. 

130. 

1 . 

1. 


CITY 

CAPITAL 

INSTALL 

LEASE 

OINtA 

ANNUALIZED 

KANSAS CITY 

59400. 

16000. 

18000. 

11700. 

44876. 


PEAK HR 

OFFPK HR 

STUDIO 

GRD LINK 



0. 

130. 

1. 

1. 


CITY 

CAPITAL 

INSTALL 

LEASE 

OtNIA 

ANWJALZZED 

DENVCR 

59400. 

16000. 

18000. 

11700. 

44878. 


PEAK HR 

OFFPK HR 

STUDIO 

ORD LINK 



0. 

130. 

1. 

1. 


CITY 

CAPITAL 

INSTALL 

LEASE 

OtNtA 

ANNUALIZED 

SAN FRANC 1 SCO 

262900, 

46000. 

18000. 

106700. 

186882. 


PEAK HR 

OFFPK HR 

STUDIO 

ORD LINK 



0. 

130. 

1 . 

1 . 


CITY 

CAPITAL 

INSTALL 

LEASE 

OINtA 

ANNUALIZED 

SEATTLE 

262900. 

46000. 

18000. 

106700. 

186882. 


PEAK HR 

OFFPK HP 

STUDIO 

GRD LINK 



0. 

130. 

1. 

1 . 


uplink total 

1611500. 

310000. 

160000. 

592000. 

1158804. 
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Tabu 

3-10. OVEMIX 

COST SUMMARY -- 

' FPQERAL MSGIOIAL 

PROGRAMUMG 




OVERALL COST 

SUMHARY 




CAPITAL 

PLANNING AND 

ANNUAL 

ANNUAL 

ANNUALIZED 


EXPENDITURES 

INSTALLATION 

LEASE 

OSMtA 

COST 

UPLINK 

1611500. 

310000. 

180000. 

592000. 

1158804. 

DOyW.INK 

650400. 

114800. 

9360. 

31800. 

195197. 

VOICE TALKBACK 

986. 

2720. 

50918. 

0. 

51664. 

AONINISTRATIVE 

0. 

160000. 

0. 

85000. 

117208. 

TOTALS 

2262886. 

587520. 

240279. 

708800. 

1522873. 

ANNUALIZED COST 

455525. 

118269. 

240279. 

708800. 

1522873. 

EFFECTIVE YEARLY 

COSTS FOR 8 

YEARf 12.00 

PERCENT AMORTIZATION ♦ 

1522873. 
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fail* J-12. HRNOMC COST ALLOCATION — COST ALLOCATION CASE 
PEOERAL REGIONAL OFFICES. TOP 20 SHSA'S — COST ALLOCATION CASE 

NETWORK COST ALLOCATION 


CAPITAL 

UPLINK 

1 FEDERAL OFFICES 1431AS. 

2 SNSA'S 25SA35. 

TOTAL 396800. 

DOWNLINK 

1 FEDERAL OFFICES 80200. 

2 SNSA'S 142400. 

TOTAL 192600. 

VOICE TALKBACK 

1 FEDERAL OFFICES 87. 

2 SNSA'S 218. 

TOTAL 308. 

ADHINISTRATIVE 

1 FEDERAL OFFICES 0. 

2 SNSA'S 0. 

TOTAL 0 . 

TOTAL NETWORK 

1 FEDERAL OFFICES 193482. 

2 SNSA'S 398283. 

TOTAL 891708. 


INSTALL 

LEASE 

OtNtA 

ANNUALIZED 

36617. 
68383 . 

162800. 

290160, 

72816. 

129484, 

271206. 

484266. 

102000. 

482660. 

202000. 

788472. 

1800. 

22200. 

1800. 

2880. 

1000. 

6800, 

13268. 

42814. 

24000. 

4680. 

7800. 

88782. 

240. 

600. 

8611. 

14976. 

0. 

0. 

8677. 

18141. 

840, 

23887. 

0. 

23818. 

83333. 

106667. 

0. 

0. 

26323. 
8666 ’ . 

39069. 

78139. 

160000. 

0. 

88000. 

117208. 

91990. 

194880. 

172911. 

308016. 

101849. 

192681. 

332221. 

620060. 

286840. 

480927. 

294800. 

982281 . 


FEDERAL REGIONAL PROGRANNINO 
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CHAPTER FOUR 


CONCLUSIONS 


NASA has dsnonstrated that access to vital public services can be 
Improved by using communications satellites. There are plans to establish 
several public service networks for the purpose of securing large blocks 
of video transmission time and redistributing that time to qualified public 
service organizations. Depending on requlrwients , the participating orga- 
nizations may find It cost-effective to buy the transmission equipment they 
need, rent or lease u:e equipment on a short-term basis, or enter Into a 
sharing agreement with an existing equipment user. While the existing net- 
work of earth stations and other associated facilities might provide an 
excellent starting point for a shared-use video network, lack of channel 
capacity and lack of a local distribution system In many cities might 
require substantial new Investment. The decision whether to upgrade 
existing facilities or to construct new facilities will depend critically 
on the access arrangements that can be negotiated with owners of existing 
earth stations and local loops. 

The Video Distribution System Cost Model developed during this study 
Is designed to emalyze these kinds of Issues. At each stage of signal 
propagation there may be several options concerning the type of equipment 
or comtnon carrier to use. The model can analyze these options and choose 
the most cost-effective "path." The output of the model consists of an 
estimate of capital and operating costs for public service video communica- 
tions via satellite from signal generation to reception. By comparing the 
results of a baseline and a scenario run, the effect of a single change In 
network parameters can be shown. This procedure can be used to calculate 
the Incremental cost of an additional city in the network or an additional 
hour of channel utilization. 

In addition, the model can highlight the cost benefits of sharing 
facilities. A group of organizations, none of whom may be able to afford 
a particular facility alone, may find that together they can use the facil- 
ity effectively. The savings limit Is reached when the shared facility 
becomes fully used. It must also be realized that the cost of establishing 
a communications link between the proposed shared facility and the addition- 
al site may exceed the cost of a new facility. For example, in many cases 
Installing a new recelve-only earth terminal was found to be less expensive 
than using a terrestrial line to an existing terminal. In the cases that 
were analyzed, the greatest benefit from sharing was found to be the savings 
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generated by afficlant scheduling of transponder tine. Sharing of downlink 
equipment showed substantial, although less significant, savings. 

The purpose of this si idy was to demonstrate the capability of the 
model to help managers make i^etter decisions concerning which of several 
available options might be host in a given situation. The eight cases 
analysed were hypothetical networks choron to demonstrate some of the 
analysis capabilities of the model. 

The Video Distribution System Cost tiodel is a useful tool in the analy- 
sis of video satellite costs in public service networks. Through the sample 
cases run in this study, the model has beg'jn to establish general criteria 
or **rule of thumb" guidelines on the basis of which new networks could be 
implemented cost-effectively. It has measured sensitivity of network costs 
to a number of key parameters. The model has been developed into a powerful 
user-oriented analysis tool that is applicable to a broad spectrum of net- 
work cost problems, and it can be used by video network memagers in the 
analysis of transmission alternatives at all stages of signal propagation. 
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APPBiiDZX A 


DATA ADSUMPTZOUS 


This app«Adix prasanti juatiflcation for 90 m* of tha cost asavBnptiona 
uaad in tha uplink and downlink sa^aants of t)M nodal. This affort was 
conductad in parallal with tha running of tha casaa; consaquantly, tha 
assumptions prssantsd hara wars not usad in avary instance. In addition, 
such factors as bulk aquipnant prices and prior agrannants batwaan tha 
vendors and a given network may result in a different cost from that pre- 
santad. The purpose of tha cases was not so much to calculate tha cost 
of a network as to demonstrate the capability to do so under a range of 
cost assuR^tions . Thus the cost assumptions should be viewed as careful 
estimates. 

These costs are included in tha saoqpla scenario, which is presented 
at tha and of this a^andix. Tha sam^la scenario is accessed by the user 
to form the basis for the user's unique application. 


VZEgQ STUDIO COSTS 


Simple Studio 
Capital 

Cameras: 2 Caswras (modest quality) 

$16,000 

Remote controls on cameras 

3,000 

Switching 

3,000 

Lighting 

1,500 

Microphones 

} 

Mixer 

1 1 , 500 

Video monitors 

2,000 

Audio nonitors 

500 

Echo suppressor 

3,000 

Synch generator 

1,500 
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RooB aodiflcAtioiw 
Znstallation costs 

Total Ciy^ital 

Curating 

••Pioduction" 
scheduling 
Naintananca 

Recurring Costs 
More Cwttplax Studio (Rot Full Production Quality) 
Capital 

Caneras 

Reaote control 
Switching 
Lighting 
Microf^ones 
Mixer (audio) 

Synch generator 
Video monitors 
Large screen display 
Video cassette machine 
Audio monitors 
Echo su[^ressor 

Character generator capability 
9oom modifications 
Installation costs 

Total Capital 

Operating 

Production 
writing 
Scheduling 

Maintenance 10 percent 


$ 5,000 
.14 m 

$42,000 


5,000 

$ 9,200 


40,000 

3.000 

6.000 

3.000 

5.000 

2.500 

2.000 
4,000 

4.000 

1.500 

3.000 

3.500 

7.500 i 
$92,500 


25,000 

9,250 


Recurring Costs 


$34,250 


Production Studio {Cmiivm Production) 
Cnpitnl 


Canaraa (3) 

$75,000 

Synch generator 

3,000 

Switching 

10,000 

Character generator 

6,000 

Lighting 

5,000 

Nicrophonea, audio mixing 

7,500 

Video BMiitora 

14,000 

1 inen helical record/playback/edit 

50,000 

Audio monitora 

1,500 

- .m n»dificationa 

30,000 

Inatallation 

15,000 


Total Capital 


Operating 


Producer/Director 


25,000 

Cameraa ( 3 ) 


45,000 

Maintenance (1) 


17,500 

Coordinator 

Recurring Coats 

11,000 

LINE OF SIGHT MICROWAVE LINK 

COSTS 

Sinqle Hop Link 



Equipment ia Houaed in 

Existing Building 


Tower a tuba (2) 


2,000 

Tranamit and receive 

electronics 

21,000 

Waveguide 250 feet 


1,500 

Antenna and feed (2) 


1,000 

Preaaurizing system 

(2) 

900 

Miscellaneous 


i,000 
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$217,000 


$ 98,500 


Installation 

Licensing, frequency coordination 


$ 5,000 
1,000 


Total 

Operations and maintenance (per year) 


$33,400 

2,500 


Double Hop Link 

Tower stubs (3) $ 3,000 

Trauismit ^uld receive electronics 36,000 

Shelter (at midpoint) 5,000 

Waveguide 500 feet 3,000 

Antenna and feed (4) 2,000 

Pressurizing system (3) 1,350 

Miscellaneous 2 , 000 

Installation 7 , 500 

Licensing, frequency coordination 2,000 

Total $61,850 

Operations and maintenance (per year) 3,300 


SATELLITE TRANSPONDER USAGE COSTS 

The rates for transponder usage vary according to the length of the 
commitment, the particular carrier, and the time of day. In addition, 
whether the service is protected or can be preempted is a factor. A selec- 
tion of the range of charges available is given below: 

RCA Globed. (Customer Supplied Downlink) 


Oc cas i onal Service 


Fixed Term 

5 hour/day 
10 hour/day 


Cannot Be Preempted 

Peak* Off-Peedc* 

$750/hr $650/hr 

Protected 

Peak Off-Peak 

$279/hr $125/hr 

$266/hr $125/hr 


Can Be Preempted 

Anytime 

$3 50/hr 

Unprotected 

Peak Off-Peak 

$215/hr $100/hr 

$203/hr $100/hr 


*Peak Time: Monday through Friday 5:00 P.M. - 2:00 A.M. ET. 

Off-Peak Time: Monday through Friday 2:00 A.M. - 5:00 P.M. ET. 
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Westam union (Customer Supplied Downlink) 


Occasional Service 

Earlybii i* 

Daytime* 

Primetime* 


$90/hr 

S 200/hr 

$450/hr 

Monthly Scheduled 

$90/hr 

$195/hr 

$425 

Long-Term Scheduled 


Anytime 




$300/hr 



Broker of Western Union Services 

occasional Service Earlybird 

Daytime 

Prinffitime 


$ 100/hr 

$ 170/hr 

$200/hr 

FEES FOR USE OF 

EXISTING CATV AND ITFS 

SYSTEMS 


There is not a uniform cost structure for the use of existing CATV 
suid ITFS systems. Since ITFS is a wireless transmission system, the end- 
user charge for ITFS usage will probably be based on incremental adminis- 
trative costs. Charges for CATV distribution are more likely to depend 
on channel capacity emd local regulatory factors. In some cases, charges 
for CATV transmission will be nearly zero if the csUsle company can attract 
a number of new subscribers as a result of the additional programming. 

The following estimates for these systems are based on small sait^les and 
should be used with caution. 

CATV 


Hourly rate for video signal to be received at an existing CATV earth 
station and to be passed to an existing (unused) channel. 

— $3 0/hour 

ITFS 

Hourly rate for video signal to be passed through existing ITFS 
system. 


— $10/hour 


*Earlybird Time: Monday through Friday 2:00 A.M. - 12:00 P.M. ET. 

Daytime: Monday through Friday 12:00 P.M. - 4:00 P.M. ET 

Primetime: Monday through Friday 4:00 P.M. - 2:00 A.M. ET 


EARTH STATI<»1 03STS 


Receive-Only Earth Station 


4.5 meter antenna system $ 6,000 
GaAs FET low noise amplifier 3,000 
Downconverter/Demodulator 5 , 000 
Frequency coordination 1 , 200 
InstallaticMi* 5,000 


Total 

Operations and maintenance (per year) 


$20,200 

1,500 


Two-Way Earth Station 

10 meter antenna system $50,000 
GatAs FET low noise an^lifier 3,000 
KPA system 50,000 
Receive chain 7 , 500 
Transmit chain 13 , 000 
Baseband monitoring 5,000 
Test equifmient 40,000 
Spares 20,000 
Shelter 15,000 
Site development 10,000 
Installation and engineering 20,000 


Total 

Maintenance amd operations (per year) 

(2 people and parts) 


$233,500 

95,000 


PUBLIC TELEVISION FACILITIES COSTS 


Public television stations are somewhat uneven both in the facilities 
they can make available and in the charges for these facilities. In addi- 
tion, there is considerable variance in the additional connectivity to 
other viewing locations that the public television stations possess. Never- 
theless, the PSSC has experience with a significant cross section of the 
total set of public ttlevision stations and the following is provided as 
typical information. The only way exact information can be provided about 


‘Assumes equipment colocated in existing buildings. 
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any particular location is to construct an extensive data base. (The 
PSSC is currently undertaking this task.) 

Typical Charges; 


1. 

Receive signal from satellite 
further interconnect 

and pass through to 

$3 5/hour 

2. 

Receive signal from satellite and view at television 
station in conference-room type situation 

$ 50/hour 

3. 

Additional charges if further 
station-owned ITFS system 

interconnect is 

$ 5/hour 


AT&T VIDEO LINK 


Local Video Link, Less Than 20 Miles 


Lease : $ 1 » 000/month 

Installation : $2,500 


VOICE TALKBACK COSTS 


Ted.kback Capital Costs 

Cost of station set, black, no Touch-Tone $14.50 

Direct Dial Costs 

Based on 1-minute daytime call over 1,500 

miles distance $ 0.52 per minute 

WATS Costs 


Based on interstate tariff "L" 
First ten hours (per month) 
Each additional hour 

Private Line Costs 


Based on MPL tariff 
First two terminations 
Each additional termination 
Mileage charge 


$240.00 
$ 18.00 


$215.00 per month 
$ 40.00 

$ 0.52 per mile 

per month 


ADMINISTRATIVE COSTS* 


INSTALLATION AND PLANNING 

Salaries $47 , 100 

Travel & Expenses 29,000 

MMagenent 25,000 

Overhead 59,000 

TOTAL $160,100 

OPERATlcaJS & MAINTENANCE (per year) 

Saleuries $33,900 

Travel s Expenses 21,000 

Overhead 41,600 

TOTAL $96,500 


*PSSC Estimates 
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SAMPLE SCENARIO 


This section presents the senile scenario that may be accessed by the 
user when building his own scenario. The sample scenario contains a nominal 
set of costs and paths, all of which may be changed by the user. The infor- 
mation is presented in the same order in which it would be requested in the 
scenario builder. 

TITLE - Sample Scenario Containing Nominal Costs 

COST ALLOCATION - There are no member organizations and therefore no 
cost allocation. 

UPLINK COST INDEXES - fixed, per peak hour, per off-peak hour, per 
studio, per ground link 

UPLINK COST INDEX WEIGHTING FACTORS - There are no weighting factors 
since this applies only to cost allocation 

UPLINK COST ELEMENTS: 


DATA FOR COST ELEMENT SU — SATELLITE USAGE 




PER 

PER 

PER 

PER 


FIXED 

PEAK HR 

OFFPK HR 

STUDIO 

GRD LINK 

CAP 

0.00 

0.00 

0.00 

0.00 

0.00 

INS 

0.00 

0.00 

0.00 

0.00 

0.00 

LES 

0.00 

279.00 

125.00 

0.00 

0.00 

OHA 

0.00 

0.00 

0.00 

0.00 

0.00 

MINIMUM 

LEASE COST 

-180000.00 





DATA FOR 

COST ELEMENT S3 — 

CASE 3 STUDIO COSTS 




PER 

PER 

PER 

PER 


FIXED 

PEAK HR 

OFFPK HR 

STUDIO 

GRD LINK 

CAP 

0.00 

0.00 

0.00 

172000.00 

0.00 

INS 

0.00 

0.00 

0.00 

45000.00 

0.00 

LES 

0.00 

0.00 

0.00 

0.00 

0.00 

OMA 

0.00 

0.00 

0.00 

98500.00 

0.00 

MINIMUM 

LEASE COST 

» 0. 

00 
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DATA FOR 

COST ELEMENT 

Ml — 1-HOP MICROHV 

TO TOC* 




PER 

PER 

PER 

PER 


FIXED PEAK HR 

OFFPK HR 

STUDIO 

GRD LINK 

CAP 

0.00 

0.00 

0.00 

0.00 

27400.00 

INS 

0.00 

0.00 

0.00 

0.00 

6000.00 

LES 

0.00 

0.00 

0.00 

0.00 

0.00 

OMA 

0.00 

0.00 

0.00 

0.00 

2500.00 

MINIMUM 

LEASE COST » 

0.00 





DATA FOR 

COST ELEMENT 

UL — 

ATST VIDEO LK 

TO TOC 




PER 

PER 

PER 

PER 


FIXED PEAK HR 

OFFPK HR 

STUDIO 

ORD LINK 

CAP 

0.00 

0.00 

0.00 

0.00 

0.00 

INS 

0.00 

0.00 

0.00 

0.00 

2500.00 

LES 

0.00 

0.00 

0.00 

0.00 

12000.00 

OMA 

0.00 

0.00 

0.00 

0.00 

0.00 

MINIMUM 

LEASE COST a 

0. 

00 




DATA 

FOR COST ELEMENT T2 — 2- 

WAY EARTH 

TERMINAL 




PER 

PER 

PER 

PER 


FIXED 

PEAK HR 

OFFPK HR 

STUDIO 

GRD LINK 

CAP 

203500.00 

0,00 

0.00 

0.00 

0.00 

INS 

30000,00 

0,00 

0.00 

0.00 

0.00 

LES 

0,00 

0.00 

0.00 

0.00 

0.00 

OMA 

95000.00 

0.00 

0.00 

0.00 

0.00 

MINIMUM LEASE COST 

a 0.00 





DATA FOR 

COST ELEMENT 

SI — 

CASE 1 STUDIO COSTS 




PER 

PER 

PER 

PER 


FIXED PEAK HR 

OFFPK HR 

STUDIO 

GRD LINK 

CAP 

0.00 

0.00 

0.00 

32000.00 

0.00 

INS 

0,00 

0.00 

0.00 

10000.00 

0.00 

LES 

0.00 

0.00 

0.00 

0.00 

0.00 

OMA 

0.00 

0.00 

0.00 

9200.00 

0.00 

MINIMUM 

LEASE COST * 

0. 

00 




DATA FOR 

COST ELEMENT M2 -- 2- 

■HOP MICROUV TO TOC 




PER 

PER 

PER 

PER 


FIXED 

PEAK HR 

OFFPK HR 

STUDIO 

GRD LINK 

CAP 

0.00 

0.00 

0.00 

52350.00 

0.00 

INS 

0.00 

0.00 

0.00 

9500.00 

0.00 

LES 

0.00 

0.00 

0.00 

0.00 

0.00 

OMA 

0.00 

0.00 

0.00 

3300.00 

0.00 

MINIMUM 

LEASE COST 

a 0.00 





*Televislon Operations Canter 
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UPLINK COST/PATH MATRIX 


SU S3 

MICROWAVE TO E-T * * 
VIDEO LINK TO E-T * « 
USE OWN E-T « * 
MICROWAVE TO OWN E-T * * 
VIDEO UK TO OWN E-T * * 


Ml VL T2 SI M2 

« 

« 

« 

* » 

« « 


DCWNLINK COST INDEXES - fixed, per peak hour, per off-peaik hour, 
organization. 

DOWNLINK COST INDEX WEIC.ITING FACTORS - There are no weighting factors 
since this applies only to cost allocation. 

DOWNLINK COST ELEMENTS: 


OATA FOR COST ELEMENT CH — 3RD CHNL RCVR ON E-T 



FIXED 

PER 

PEAK HR 

PER 

OFFPK HR 

PER 

ORGNZTN 

CAP 

5000 . 00 

0.00 

0.00 

0.00 

INS 

0,00 

0.00 

0.00 

0.00 

LES 

0.00 

0.00 

0.00 

0.00 

OMA 

0.00 

0.00 

0.00 

0.00 

MINIMUM 

LEASE COST 

* 0.00 




DATA FOR 

COST ELEMENT CT — 

RENT COM CARR 

E-T 



PER 

PER 

PER 


FIXED 

PEAK HR 

OFFPK HR 

ORGNZTN 

CAP 

0.00 

0.00 

0.00 

0.00 

INS 

0.00 

0.00 

0.00 

0.00 

LES 

0.00 

35.00 

35.00 

0.00 

OMA 

0.00 

0.00 

0.00 

0.00 

MINIMUM 

LEASE COST 

* 0. 

00 



DATA FOR COST ELEMENT FT — PVT EARTH TERMINAL 

PER PER PER 



FIXED 

PEAK HR 

OFFPK HR 

ORGNZTN 

CAP 

9000.00 

0.00 

0.00 

5000.00 

INS 

6200.00 

0.00 

0.00 

0.00 

LES 

0.00 

0.00 

0.00 

0.00 

OMA 

1500.00 

0.00 

0.00 

0.00 

MINIMUM 

LEASE COST 

a 0.00 
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DATA FOR COST ELEHENT Ml — 1-HOP MICROWAVE LINK 


FIXED 


PER 

PEAK HR 


PER PER 

OFFPK HR ORONZTN 


CAP 

27400.00 

0.00 

0.00 

INS 

6000.00 

0.00 

0.00 

LES 

0.00 

0.00 

0.00 

OMA 

2500.00 

0.00 

0.00 

MINIMUM 

LEASE COST - 

0.00 



0.00 

0.00 

0.00 

0.00 


DATA FOR COST ELEMENT VL — ATtT VIDEO LINK 


FIXED 


PER 

PEAK HR 


PER PER 

OFFPK HR ORONZTN 


CAP 

0.00 

0.00 

0.00 

INS 

2500.00 

0.00 

0.00 

LES 

12000.00 

0.00 

0.00 

OMA 

0.00 

0.00 

0.00 

MINIMUM 

LEASE COST - 

0.00 



0.00 

0.00 

0.00 

0.00 


DATA FOR COST ELEMENT CU — USAGE OF CATV SYSTEM 



FIXED 

PER 

PEAK HR 

PER 

OFFPK HR 

PER 

ORONZTN 

CAP 

1700.00 

0.00 

0.00 

0.00 

Ins 

300.00 

0.00 

0.00 

0.00 

LES 

0.00 

0.00 

0.00 

0.00 

OMA 

MINIMUM 

0.00 

LEASE COST 

0.00 

= 0.00 

0.00 

0.00 


DATA FOR 

COST ELEMENT 

CC — 

CATV SUBSCRIPTIONS 



PER 

PEP 

PER 


FIXED PEAK HR 

OFFPK HR 

ORONZTN 

CAP 

0.00 

0.00 

0.00 

0.00 

INS 

0.00 

0.00 

0.00 

0.00 

LES 

0.00 

0.00 

0.00 

180.00 

OMA 

0.00 

0.00 

0.00 

0.00 

MINIMUM 

LEASE COST * 

0. 

00 



DATA FOR 

COST ELEMENT 

MT •- TV 

MONITORS 




PER 

PEP 

PER 


FIXED PEAK HR 

OFFPK HP 

ORONZTN 

CAP 

0.00 

0.00 

0.00 

1000.00 

INS 

0.00 

0.00 

0.00 

0,00 

LES 

0 . 00 

0.00 

0.00 

0,00 

OMA 

0.00 

0.00 

0.00 

100.00 

MINIMUM 

LEASE COST 

0.00 
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DATA FOR COST ELEMENT M2 — TWO-HOP MICROWAVE 


FIXED 


PER 

PEAK HR 


PER PER 

OFFPK HR ORGNZTN 


CAP 

52350.00 

0.00 

0.00 

INS 

9500.00 

0.00 

0.00 

LES 

0.00 

0.00 

0.00 

OMA 

3300.00 

0.00 

0.00 

MINIMUM 

LEASE COST » 

0.00 



0.00 

0.00 

0.00 

0.00 


DATA FOR COST ELEMENT NC — CATV COLOC WITH E-T 


FIXED 


PER 

PEAK HR 


PER PER 

OFFPK HR ORGNZTN 


CAP 

0.00 

0.00 

0.00 

INS 

0.00 

0.00 

0.00 

LES 

-180.00 

0.00 

0.00 

OMA 

0.00 

0.00 

0.00 

MINIMUM 

LEASE COST 

■-10000.00 



0.00 

0.00 

0.00 

0.00 


DOWNLINK COST/PATH MATRIX: 


DIRECT LINK TO CATV 
OWN LINK TO CATV SYS 
f>RIVATE EARTH TERM 
MICROWAVE TO USER 
I-HOP MCRWV TO USER 
MONITOR ONLY 
RENTED E-T TO CATV 


CH CT PT Ml VL CU CC 

* * * 

* t « » 

« 

* * 

* 

* « « 


MT M2 NC 

* 

« 

« 

« 

« « 

* 

« 


UPLINK CITIES - There are no uplink cities. 
DOVJNLINK CITIES - There are no downlink cities. 
AUXILIARY PARAMETERS - See below. 


talkback: 

DDD 

WATS 

PVT 

INSTALLATION 

40.00 

30.00 

60.00 

ZERO USAGE CHAROE/MO. 
MILEAGE CHARGE 

0.00 

60.00 

215.00 

0.52 

HOURLY CHARGE 
MAXIMUM CHARGE 

31.20 

18.00 

1200.00 



amortization: 

INTEREST RATE 12.00 PERCENT 

EQUIPMENT LIFE S.OO YEARS 
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(GENERAL 

AND ADMINtS’PATIVE 

CAP 

o.oo 

INS 

160000.00 

LES 

0.00 

OMA 

85000.00 


TALKBACK CAPITAL EXPENCITURES 
14.50 
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ja>PENDZX a 


MOKL FORMULATZC»} 


1. GENERAL STRUCTURE 

Th« cost ffiodsl consists of four basic parts: tha input scanarios, 
tha scanario buildar# tha cost algorithms, and tha aarth tarminal data 
base and its corresponding utility (sea Figure B-1) . 



Figure B-1. MODEL ARCHITECTURE 


The user establishes the network configuration with the aid of the 
scenario builder. The scenario builder accepts as input a scenario file 
that contains either system-supplied cost information (Appendix A) or some 
previously defined network scenario that requires modification. The 
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icanarlo buildar allows ths usar to add, dalata, and modify information 
intaractivaly in tha acanario. Tha output of tha buildar is a finished 
.^csnario tailored to tha user's specifications. 

Tha finished scenario serves as input to tha model's cost algorithms 
(described in subsequent sections) . In this module, the user inputs only 
the segments of the model of interest and the number and type of reports 
to be generated. Examples of the available reports appear in Appendix C. 

The earth terminal module accesses the earth terminal data base. The 
user supplies a distance from his sites that is acceptable and the satellite 
that is desired. The module creates a list of earth stations that are 
within that given distance of the user's uplink and downlink cities and 
are licensed to point to the given satellite. It is up tn the user to 
determine if the earth terminal can be shared, if so, the user specifies 
this condition during the scenario build. 

Section 2 describes the software structure of the model, including a 
descriptim of each of the programs used. Section 3 describes the vari- 
ables and parameters used in the imxlel. Section 4 presents the cost 
algorithms used in the uplink, downlink, and voice talkback segments of 
the B»del. 


2. SOFTWARE STRUCTURE 

The model is written in extended FORTRAN IV (Digital Equipment 
Corporation's FORTRAN IV-PLUS) . It consists of three distinct modules: 
BUILD (scenario builder) , MODEL (cost algorithms) , and EARTH (earth ter- 
minal module) . 

This section describes each main program and subroutine and specifies 
the calling program, the subroutines called, and the arg\uaents passed. A 
number of the subroutines are general utility subroutines and are calxed 
by all three modules. The section is organized as follows: BUILD, MODEL, 

and EARTH main program and subroutines, followed by the general utility 
subroutines . 


BUILD - SCENARIO BUILDER 


BUILD Main program for the scenario builder. It initializes certain 

parameters, and calls in the necessary subroutines to read in 
the scenario file, edit the cost, path, city, and rate informa- 
tion, and saves the modified scenario data. 

Calls; COST, PATH, CITY, RATE, READIN, RITOUT, YESNO. 
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COST Add to or n^ify data for tha uplink or downlink cost elamants. 

Tha usar has tha capability to dafine additional cost alcmants, 
add data for than, and includa than in one or mora paths. Cost 
elemant data consist of capital, installation, laasa, and oper- 
ations and maintananca costs for each cost alamant (piece of 
equipment or nonhardwara cost unit) used in tha analysis. The 
user also has tha capability to sat up a cost allocation 
methodology. 

called By: BUILD 

Calls: GETTER, COOCHK, DISAPR, REPRTR, ^ESNO, UPDOVfN, RDCOST, 

MATMOD 

PATH Defines or modifies data for uplink or downlink paths. Paths 

are video signal transmission options. The user can add or 
delete paths, change the cost elements associated with any of 
tha pa'±s, or specify the cities for which a path is valid. 

Called By: BUILD 

Calls; YESNO, UPDOWN, CODCHK, GETTER, MATt«DD, DISAPR, REPRTR 

CITY Define or modify tha characteristics of the cities that con- 

situte the network under consideration. The user can add, 
modify, or delete cities from the network and associate paths 
with cities. City data includa naiM (and member organization 
if applicable) , state, location (latitude/longitude or Bell 
System V and H coordinates), channel number (for uplink cities), 
cost index values, and feasible paths. 

Called By: BUILD 

Calls: YESNO, UPDOWN, GETTER, CODCHK, CTYCHK, VANDH, I'tATMOD, 

DISAPR, REPRTR 

RATE Add or modify telephone charges, interest rates, and general 

and administrative costs. 

Called By: BUILD 

Calls: YESNO, GETTER, CODCHK, RATECK, REPRTR 


tJODEL - COST ALGORITHMS 


MODEL Main program for the cost algorithm model. It determines the 

portion(s) of the model that the user would like run, and the 
number and type of reports required, and it calls the appro- 
priate subroutines to execute the cost algorithms. 

Calls: MODUP MODDN, MODTK, READIN, GETTER, CODCHK, REPRTR 
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MODUP 


Executes the cost algorithms for the uplink segment of the 
model. 

CaJ.led By. MODEL 
Calls: REPRTR, VANDH 

IK>DDN Executes the cost algorithms for the dovmlink segment of the 

model. 

Called By: MODEL 

calls: REPRTR, VANDH 

MODTK Executes the cost algorithms for the talkback segment of the 

model. 

Called By: MODEL 


EARTH - EARTH TERMINAL ^K>DULE 


SAI^ Main program for the earth terminal module. This program pro- 

vides a list of earth terminals that eure within a given distance 
from each city in a given user scenaurio. Hie list may be 
limited to those earth statists that are licensed to point to 
a particuleu: user-specified satellite. The earth terminal in- 
formation is obtained from an FCC-supplied data base. 

Calls: MOVREC, CODCHK, VANDH, READIN 

MOVREC This subroutine sets up the array of selected earth terminals 

which will then be sorted and :'’'inted. 

Parameters: i - index into city array 

j - index into earth terminal array 

Called By : EARTH 


GENERAL UTILITIES 


READIN Reads the scenario data file into an unnamed common. 

Called By: BUILD, MODEL, EARTH 

RITOUT Writes out the scenario data into a new file. 

Called By: BUILD 
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YESNO 


Determines if the responses to a question is "YES" or "NO" or 
in error and sets the appropriate flag. 

called By: BUILD, COST, PATH, CITY, RATE 


UPDOWN 


CODCHK 


GETTER 


CCOUNT 


DISAPR 


RDCOST 


RATECK 


Determines if the response to a question is "UPLINK" or 

"DOWNLINK" or in error and sets the appropriate flag. 

Called By: COST, PATH, CITY 

Checks an input argument against a list of valid arguments. 

Parameters: NCHAR - n\imber of characters in input argument 

INDATA - array containing input argument 
NCOMPR - number of possible values 
CMPARR - array containing list of possible values 
POSTN - position in the array where input argu- 
ment matched a possible value 

Called By: COST, PATH, CITY, RATE, RDCOST, MATfKDD, MODEL, 

EAimi 

Retrieves the next argument on the command line. 

Called By: COST, PATH, CITY, RATE, RDCOST, MATMOD, MODEL 

Calls : CCOUNT 

Counts characters in an input argument. 

Pareuneters: ARG - argument to be counted 

NCHAR - number of characters (computed) 

Called By : GETTER 

Deletes a cost element, path, or city from the scenario data. 

Parameters: Code - type of deletion 

Index - position in arrays to be deleted 

Called By: COST, PATH, RATE 

Reads in an input argument and tests for a cost element code. 

Called By : COST 

Calls ; GETTER, CODCHK 

Performs a range check of a data element. 

Parameters: LOW - lower limit 

UP - upper limit 

XDAT - data element 

Called By: RATE 


ji 
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CTYCHK 


Determines if a city exists and, if it does, returns the index 
in the appropriate array. 

Parameters: P(^ - position in city array 

ORG - member or>ganization 

Called By: CITY, MATMOD 

VANDH Converts iatitude/longitude to Bell System V and H coordinates 

(provides a simpler means of estimating the distance between 
two cities) . 

Parameters: M * latitude 

N - longitude 

Called By: CITY, MODUP, .HODON, EARTH 

MATMOD Associates (disassociates) a path with a city or cost element. 

Parameters: CODE - type of modify 

01K)FF - direction (1 or 0) 

MODPOS - index of elanent being modified 

Called By: COST, PATH, CITY 

calls: COTTER, CODCHK, REPRTR, CTYCnOC 

REPRTR Prepares reports on scenario data — cost elements, cost element/ 

path matrix, paths, path/city matrix, cities and cost index 
values, uplinJc/downlink tallcback matrix, member organizations, 
and rates. 

Parameters: REPTYP - report type 

POS - index into arrays 

Called By: COST, PATH, CITY, RATE, MATMOD, MO)EL, MODUP, MODDN 

3. PARAMETER AND VARIABLE DEFINITIONS 

This section describes the paurameters and variables contained in the 
unnamed common, which is used in both the scenario builder and the cost 
algorithms modules. All arrays are shown dimensioned and, where applicable, 
the sizing pareuneter is specified. These parameters are also included in 
this description, and their nominal values are presented. 

AMORT Amortization factor. 

ANNL(NDPATH) Annualized cost of each path for a given city. 

AORGCS (NUM0RG,5) Administrative capital, installation, lease, 

OMA, and annualized cost per member organization. 

ARG(80) General array used to hold the argument being 

processed . 


B-6 




BAOD 

BLANK 

CAPCST 

CILO{5,2) 

CONTO) 

DCINDX (NDINDX,8) 

DCITYH (NDCITY) 
DCITyV(NDCITY) 
DCOSTX(NDCITY,4) 

DCSC0D(NDELEM,2) 

DCSDAT (NDELEM, NDINDX , 4 ) 

DCSMIN (NDELEM) 

DCSNAM (NDELEM, 20) 

DCSPTH (NDELEM, NDPATH) 

DCTLVL(NDCITY) 

DCTNAM(NDCITY,16) 

DCTORG (NDCITY) 
DCTXVL(NDCITY,5) 

DDDCPH 

DDDINS 

DDDLES 

DDXWHT (NDINDX) 

DISCNT 

DORGCS (NUMORG, 5) 

DPTHCY (NDPATH , NDCITY) 
DPTHNM( NDPATH, 20) 

DPTIDX (NDPATH , NDINDX , 5 ) 

DSTCOD{ NDCITY, 2) 


Statement label to go to after processing an 
error. 

Holds four blank characters tor use in output 
reports . 

Capital cost of least-cost path. 

Literals for 'CAPITAL', 'INSTALL', 'LEASE', 
'O&MSA', 'ANNUALZD' - used in output records. 

Code indicating the presence of an additional 
aurgument in the user's input buffer. 

8-character downlink cost index names. 

Downlink city location — H Coordinate. 

Downlink city location — V Coordinate. 

Capital, installation, lease, and OMA cost for 
each downlink city. 

2-character downlink cost element code. 

Capital, installation, lease, and OMA costs for 
a given downlink cost element and cost index. 

Minimum lease cost for a given downlink cost 
element. 

20-character downlink cost element name. 

Matrix of cost elements for each downlink path. 

Hierarchical level number for downlink city. 

16-character downlink city name. 

Organization code for each downlink city. 

Downlink city cost index values. 

Direct dial cost per hour. 

Direct dial installation cost. 

Direct dial less cost per month. 

Weighting factors for each downlink cost index. 

Discount rate for amortization. 

Downlink capital, installation, lease, OMA, 
annualized costs by member organization. 

Array of feasible paths for a downlink city. 

20-character downlink path name. 

Downlink capital, installation, lease, OMA, 
annualized costs for a given cost index and 
a given path. 

2-character state code for downlink city. 
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EQPLIF 

GANDAD(4) 

INDATA (80) 

INSCST 

LESCST 

MAXCS(2) 

MAXCT(2) 

MAXDCS 

MAXDCT 

MAXDPA 

KAXPA(2) 

MAXUCS 

MAXUCT 

MAXUPA 

NCHAR 

NCITY(2) 

NDCITY 

NDELEM 

NDINDX 

NDPATH 

NELEM(2) 

NINDX{2) 

NPATH(2) 

NSTART 

NUCITY 

NUELEM 

NUINDX 

NUMORG 

NUPATH 

NUP REF (NDCITY) 
OMACST 

ORGNAM (NUMORG, 20) 
PER 


Nuiober of years of equipment life (for amortiz- 
ing capital expenditures) . 

Capital, lease, installation, OMA general and 
a(toinistrative costs. 

80-character input buffer for user responses. 
Installation cost of least-cost path. 

Lease cost of least-cost path. 

Maximum number of cost elements (overlay) . 
Maximum number of cities (overlay) . 

Maximum number of downlinlc cost elements (30) . 
Maucifflum number of downlink cities (80) . 

Maximum number of downlink paths (20) . 

Maucimum number of paths (overlay) . 

Maximum number of uplink cost elements (15) . 
Maucimum number of uplink cities (10) . 

Maximum number of uplink paths (10) . 

Number of characters in an argument. 

Number of cities (overlay). 

Number of downlink cities (80) . 

Number of downlink cost elements (30) . 

Number of downlink cost indexes (6) . 

Number of downlink paths (20) . 

Number of cost elements (overlay) . 

Number of cost indexes (overlay) . 

Number of paths (overlay) . 

Pointer into input buffer. 

Number of uplink cities (10) . 

Number of uplink cost elements (15) . 

Number of uplink cost indexes (6) . 

Number of member organizations (9) . 

Number of uplink paths (10) . 

Preferred path for each city. 

OMA cost of least-cost path. 

20-character member organization name. 

Literal 'PER'. 
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POSITN 

PVTFIX 

PVTINS 

PVTLES 

PVTMIL 

REPLST(20,2) 

REPNUM(20) 

RUNSEC(4) 

TALKBK (NDCITY,NUCITY) 
TCOST(6,5) 

TITLE (72) 

TLKCAP 

TORGCS(NUMORG,5) 

UCINDX{NUINDX,8) 

UCITYH (NUCITY) 
XITYV(NUCITY) 

UCOSTX (NUCITY, 4) 

UCSCOD (NUELEM, 2 ) 

UCSDAT (NUELEM, NUINDX, 4 ) 

UCSMIN (NUELEM) 

UCSNAM (NUELEM, 20) 

UCSPTH (NUELEM, NUPATH) 
UCTCHN (NUCITY) 

UCTNAM (NUCITY, 16) 

UCTORG (NUCITY) 

UCTXVL( NUCITY, 5) 

UDXWHT (NUINDX) 

UORGCS (NUMORG , 5 ) 

UPORDN(2,2) 


General index pointer into an array 

Private line zero-mileage monthly charge. 

Private line installation charge. 

Private line monthly lease charge for a given 
city pair in tal)cbac]c segment. 

Private line monthly lease charge per mile. 

Literal numbering for output reports. 

On/off array for report requests. 

On/off array for execution of the different 
segments of the model. 

Number of tal)cl)ack hours for a given city pair. 

Total cost array for a networlc. 

72-character title for output reports. 

Added capital expenditures required for adding 
voice talkback. 

Talkback capital, installation, lease, OMA 
costs by member organization. 

8-character uplink cost index name. 

Uplink city location — H coordinate. 

Uplink city location — V coordinate. 

Capital, installation, lease, OMA costs for 
each uplink city. 

2-character uplink cost element code. 

Capital, installation, lease, OMA costs for a 
given uplink cost element and cost index. 

Minimum lease cost for a given uplink cost 
element . 

20-character uplink cost element name. 

Matrix of cost elements for each uplink path. 

Uplin’' city channel assigned. 

16-character uplink city name. 

Organization code for each uplink city. 

Uplink city cost index values. 

Weighting factor for each uplink cost index. 

Uplink capital, installation, lease, OMA, 
annualized by member organization. 

Literal — 'UPLINK', 'DOWNLINK'. 
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UPPDWN 

UPTHCY (NUPATO.NUCITy) 
UPTHNM(NUPATH,20) 

UPTIDX (NUPATH , NUINDX , 5 ) 


USTC0D{NUCITY,2) 

WATCPH 

WATIHS 

WATLES 

WATMAX 

WGTARR(NDCIT5f) 


Flag indicating the response to an uplink/ 
dovmlink question (1 - uplink, 2 - downlink) . 

Array of feasible paths for an uplink city. 

20-character uplink path name. 

Uplink capital, installation, lease, OMA, 
wnualized costs for a given cost index and 
a given path. 

2-character state code for an uplink city. 
WATS charge per hour of utilization. 

WATS installation charge. 

WATS lease charge per month. 

M 2 ucimum monthly charges for WATS. 

Weight factors for cost allocation. 


XDATA(NDINDX) 
XORGCS (NUMORG, 5) 

YESSNO 


Temporary storage for cost index data. 

Total capital, installation, lease, OMA, 
annualized cost by member organization. 

Flag indication the response to a yes/no 
que'jtion (1 - yes, 2 - no). 


4. CCST ALGORITHMS 

This secti.m presents the cost algorithms used in the uplink, downlink, 
and voice talkback segments of the model. Variable names mentioned were 
described in Section 3 of this appendix. 

UPLINK SEGMENT 

Calculations in the uplink segement are done one city at a time. For 
each city, the annualized cost of each path is calculated and stored tempo- 
rarily. Data for the least expensive path are set aside, and the process 
is repeated for the other cities. 

The calculations are shown diagrammatically in Figure B-2. The process 
consists of a number of matrix multiplications. Braces in the diagram indi- 
cate what each dimension of the matrix signifies. The C, I, L, and 0 indi- 
cate that calculations are done for Capital, Installation, Lease, and O&M&A 
costs. These component costs are ultimately annualized and the results 
compared to determine the best path. Once the best path is known, the model 
can extract the component capital, installation, lease, and OSM cost cor- 
responding to that path for reporting purposes . 
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riffure B-2. MATRIX CALCULATIONS IN THE UPLINK AND DOWNLINK SEGMENTS 


The first step in the computation process is to calculate the capital 
Installation, lease, and O&M cost of each path. That is, 

NUELEM 

UPTIDX(I,K,L) - UCSPTH(J,I) x UCSDAT(J,K,L) 

J»1 


I * path number 
J * cost element subscript 
K ■ cost index subscript 

L = cost categories {1 * capital, 2 = installation, 3 = lease, 4 = OM 




This calculation yields the cost by cost Index (l.e.> per hour or per 
organization) for each path, broken out by the four cost categories. The 
matrixes resulting from this calculation would apply to any of the cities. 


The second step Is to multiply the resulting matrix by the values of 
each of the cost Indexes for the city under consideration. Thus, 


"capcst“ 

INSCST 

LESCST 

.OMACST, 


NUINDX 


K-1 


UCTXVL(M,K) 


X 


’UPTIDX(I,K,1)" 

0PTIDXU,K,2) 

UPTIDX(I,K,3) 

UPT1DX(I,K,4) 

m M 


where 


I ■ path number 
X «• cost Index subscript 
M • city subscript 

aCTXVL(M,K) ■ the value of the Kth cost Index (e.g., hours, studios) 
for city M 


The calculation of lease costs Is somewhat more complicated )3ecause the 
user may specify a minimum lease charge to apply to any of the cost ele- 
ments. If a minimum is specified, the program recalculates LESCST to take 
this into account. 


Finally, the capital and installation costs are amortized to an annual 
expenditure and added to the lease and O&M&A costs, yielding an annualized 
cost for each path: 


ANNL(i: 


(CAPCST + INSCST) /AMORT + LESCST + OMACST 


AMORT is the aunortization factor, equal to 




R is the 


rate, and N the number of years of amortization. The resulting 
contains the annualized cost of each path in the given city. A 
parison will determine the least expensive path. 


interest 

vector ANNL 
simple com- 


DOWNLINK SEGMENT 


The program logic of the downlink segment is identical to that of the 
uplink, except that the array names are different. 

As in the uplink segment, calculation of the least-cost path is done 
in the following three steps: 


1. Calculate Cost Parameters for Each Path 


DPTIDX(I,K,L) 


NDELEM 

DCSPTH(J,I) X DCSDAT(J,K,L) 

J-1 
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where 


I ■ path number 
J ■ cost element subscript 
K ■ cost index subscript 
L ■ cost categories 


2. Calculate Cost of Each Path in Each City 


capcst" 

ZNSCST 

LESCST 

,OMACST_ 


NDINDX 

E 


K-l 


DCTXVL(M,D) X 


DPTIDX(I,K,1) 

DPTIDX(I,K,2) 

DPTIDX(1,K,3) 

PPTIDX(1,K,4). 


3. Calculate Annualized Cost by Path 


ANNL(I) - (CAPCST + INSCST) /AIWRT + LESCST + OMACST 


The ANNL array contains the annualized cost of each path for a given 
city. The entries of this array are compared to determine the least-cost 
path. 


VOICE TALKBACK SEGMENT 


When building the scenario, the user must specify for each downlink 
city the voice talkback requirements to each uplink city. Depending on the 
network requirements, the talkback can be either directly to the uplink city 
or to an intermediate "feeder" city. The hierarchical levels specified for 
the downlink segment are used. In this situation, if a given downlink city 
is of level 3, the voice communications link must go to the nearest level-2 
city. 


The talkback segment is similar to uplink and downlink in that there 
are cost elements and paths; however, the paths may not be altered by the 
user. Three possible paths are available: private line, WATS, and DDD. 

The most cost-effective option depends on monthly utilization and the dis- 
tance between the two cities. Installation charges aure amortized and added 
to the lease for the purpose of comparing monthly costs. However, even a 
$100 installation charge amortizes to less than $2 per month, and so these 
costs can be a negligible amount. Therefore, lease is the primary factor 
determining which option is selected. 
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APPENDIX C 


SAMPLE OUTPUTS 


This appendix presents the reports generated by the system cost model. 
The scenario Illustrated here Is the cost allocation case vdiere the Federal 
regional offices and the top 20 SMSA cities share costs. The scenario Is 
described In more detail In Chapter Three. 

The appendix consists of 20 reports. The first 19 reports are the out- 
put from the coat model program. The last report is the output of the earth 
terminal utility. These reports are described by number and In the order In 
which they appear. 

1. Auxiliary Parameters . Presents talkback parameters, amortization 
rates, and general administrative costs. This information is pro- 
vided in the sample scenario and can be modified during the "rate" 
portion of the scenario builder. 

2. Uplink Cost Element Data . Presents each of the uplink cost ele- 
ments in the scenario, including the cost element name, its 
associated code, and the associated cost matrix broken down by 
capital, installation, lease, and OMA, and by each of the applic- 
able cost indexes (such as fixed, per peak hour, per studio) . 

This information is provided in the sample scenario and can be 
nx)dified during the "cost" portion of the scenario builder. 

3. Matrix of Cost Elements and Paths — Uplink . Identifies the up- 
link cost elements associated with each uplink transmission path 
and presents them in matrix format. Cost elements are represented 
by their 2-character codes. This information is provided in the 
sample scenario and can be modified during the "cost" and "path" 
portions of the scenario builder. 

4. Matrix of Paths and Cities — Uplink . Identifies a matrix of up- 
link cities and paths. Uplink paths are represented by their 
path number. ORG represents the member organization number (if 
cost allocation has been selected) . Cities will be listed once 
for each associated member organization. The information may be 
entered by the user in the "path" or "city" portion of the scenario 
builder, but this cannot be done until the city is defined. 
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5. Uplink Cost Indtx V>lue« . Presents the cost index values associ- 
ated with each uplink city. This corresponds to the number of 
peak hours, stt^ios, etc., for a given city. The information may 
by entered during the "city” ^rtion of the scenario builder. 

6. Matrix of Talkback Requir«nents . Presents a matrix of talkback 
hours between downlink and uplink cities. Uplink city names are 
abbreviated to 3 characters, and the associated organization 
number is presented below. An entry exists for each uplink and 
downlink city by member organization. This information can be 
modified in the "city” portion of the scenario builder. 

7 . Sensitivity of Path Costs to Network Parameters — Uplink . Com- 
bines the uplink cost element data with the matrix of uplink cost 
elements and paths (Report 3) to dotain the ^neralized cost of each 
t^link path. Annualized figures per path are also included. 

8. Cost of Each Path — Uplink . Presents, for each of the uplink 
cities, the total cost of each applicable path. 

9. Uplink Costs by City . Presents, for each of the uplink cities, 
the total cost of the selected path. The report also includes 
the cost index values for each city and the aggregate cost for all 
uplink cities. 

10. Downlink Cost Element Data . Downlink equivalent of report 2. 

11. Matrix of Cost Elements and Paths — Downlink . Downlink equivalent 
of report 3. 

12. Matrix of Paths and Cities — Downlink . Downlink equivalent of 
report 4. 

13. Downlink Cost Index Values . Downlink equivalent of report 5. 

14. Sensitivity of Path Costs to Network Parameters — Downlink . 
Downlink equivalent of report 7. 

15. Cost of Each Path — Downlink . Dovmlink equivalent of report 8. 

16. Downlink Costs by City . Downlink equivalent of report 9. 

17. Talkback System Lease Costs . Presents one report per uplink city 
identifying the comparative costs of voice talkback using WATS, 
private line, and direct dial, and suggests the preferred medium 
in each case. 

18. Network Cost Allocation . Presents total network costs by model 
segment (uplink, downlink, voice talkback, and administrative) 

and by member organization. (A discussi(»i of cost allocation appears 
in the Cost Model User's Guide - ARINC Research Publication 
1358-01-TR-2234). 


C-2 


19. Ovarall Co«t Suaaairy . Pratanta total natviork coats by nodal 
sagiMnt but doas not indicata cost allocation. 

20. Earth Tarainal Raport . Prasants aarth tarminal information for 
thosa aarth stations within a givan distance from a scanario's 
uplink or downlink city and licansad to point to a givan satallita. 
Tha following convantions ara usad in tha raport > 

a. Satallitas ara rapresantad by the following identifiers: 

KS20 - WESTAR 1 
KS21 - WESTAR Z1 
KS22 - WESTAR 111 
KS26 - COMSTAR 0-1 
KS27 - COMSTAR 0-2 
RS28 - COMSTAR 0-3 
KS29 - COf^AR 0-4 
KS30 - SATCOM I 
KS31 - SATCOM IX 
KS32 - SATCOM III 

ANIKl - Canadian Talasat Satellitas 

ANZK2 

ANIK3 

MRl - Marisat I 
MR2 - Marisat II 
MR3 - Marisat III 

INI - Intelsat I 
IN2 - Intelsat II 
IN3 - Intelsat III 
1N4 - Intelsat IV 

IN4A - Intelsat IV-A 
INS - Intelsat V 

KS36 - SBS I 
KS37 - SBS II 
KS38 - SBS III 

b. Service is a combination of abbreviations that indicate the 
type of service, class of station, regulatory classification, 
and type of facility. The abbreviations have the following 
meanings ; 

Type of Service 

OFS - Domestic fixed satellite 
CS - Communications satellite 
MMS - Maritime mobile-satellite 
IP - International press service (IMF) 

IFP - International fixed public (Ih.'=') 

IC - International control 

X - Other 
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C14SS Of Station 


PES - Fixed earth station 
SS - Space station 
TFE - Temporary fixed earth station 
PPT - Point-to-point telephone/tnlegraph (IHP) 
TEL - Point-to-point telephone (IMF) 

TCF - point-to-point telegraph (IMF) 

Regulatory Classification 

C - C«eaon carrier 
P - Private 
0 - OeveloEWintal 

Type of Earth Station Facility 

TO - Transmit-only 
RO - Receiver-only 
TR - Transmit/receive 

c. Size is the antenna size expressed in tenths of a meter. 
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FEDERAL R!!GIONAL OFFICES. TOP 20 SMSA'S 


COST ALLOCATION CASE 


AUXILIARY PARAMETERS 


talkback: 

DDD 

UATS 

PUT 

installation 

40.00 

30.00 

60.00 

ZERO USAGE CHARGE/MO. 
MILEAGE CHARGE 

0.00 

60.00 

215.00 

0.52 

HOURLY CHARGE 
MAXIMUM CHARGE 

31.20 

18.00 

1200.00 



amortization: 

INTEREST RATE 12.00 PERCENT 

EOUIPMENT LIFE 8.00 YEARS 


GENERAL AND ADMINISTRATIME: 


CAP 

0.00 

INS 

160000.00 

LES 

0.00 

OMA 

85000.00 


TALKBACK CAPITAL EXPENDITURES: 
14.50 


REPORT 1 - AUXILIARY PARAMETERS 
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FEDERAL REGIONAL OFFICES* TOP 20 SMSA'S — COST ALLOCATION CASE 
UPLINK COST ELEMENT DATA 


DATA FOR COST ELEMENT SU — SATELLITE USAGE 



FIXED 

PER 

PEAK HR 

PER 

OFFPK HR 

PER 

STUDIO 

PER 

GRD LINK 

CAP 

0.00 

0.00 

0.00 

0.00 

0.00 

INS 

0.00 

0.00 

0.00 

0.00 

0.00 

LES 

0.00 

279.00 

125.00 

0.00 

0.00 

DMA 

MINIMUM 

0.00 

LEASE COST 

0.00 

>180000.00 

0.00 

0.00 

0.00 


DATA FOR 

COST ELEMENT S3 — 

CASE 3 STUDIO COSTS 




PER 

PER 

PER 

PER 


FIXED 

PEAK HR 

OFFPK HR 

STUDIO 

GRD LINK 

CAP 

0.00 

0.00 

0.00 

172000.00 

0.00 

INS 

0.00 

0.00 

0.00 

45000.00 

0.00 

LES 

0.00 

0.00 

0.00 

0.00 

0.00 

OMA 

0.00 

0.00 

0.00 

98500.00 

0.00 

MINIMUM 

LEASE COST 

> 0. 

00 




DATA FOR 

COST ELEMENT 

Ml -- 1- 

-HOP MICROUV 

TO TOC 




PER 

PER 

PER 

PER 


FIXED PEAK HR 

OFFPK HR 

STUDIO 

GRD LINK 

CAP 

0.00 

0.00 

0.00 

0.00 

27400.00 

INS 

0.00 

0.00 

0.00 

0.00 

6000 . 00 

LES 

0.00 

0.00 

0.00 

0.00 

0.00 

OMA 

0.00 

0.00 

0.00 

0.00 

2500.00 

MINIMUM 

LEASE COST > 

0.00 





DATA FOR 

COST ELEMENT 

UL — 

ATJT VIDEO LK 

TO TOC 




PER 

PER 

PER 

PER 


FIXED PEAK HR 

OFFPK HR 

STUDIO 

GRD LINK 

CAP 

0.00 

0.00 

0.00 

0.00 

0.00 

INS 

0.00 

0.00 

0.00 

0.00 

2500.00 

LES 

0.00 

0.00 

0.00 

0.00 

12000,00 

J.MA 

0.00 

0.00 

0.00 

0.00 

0.00 

MINIMUM 

LEASE COST * 

ij , 

00 




(continued) 


REPORT 2 - UPLINK COST ELEMENT DATA 
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DATA FOR COST ELEMENT T2 


2-WAY EARTH TERMINAL 




PER 

PER 

PER 

PER 


FIXED 

PEAK HR 

OFFPK HR 

STUDIO 

QRD LINK 

CAP 

203500.0 

0.00 

0.00 

0.00 

0.00 

INS 

30000.00 

0.00 

0.00 

0.00 

0.00 

LES 

0.00 

0.00 

0.00 

0.00 

0.00 

DMA 

95000.00 

0.00 

0.00 

0.00 

0.00 

MINIMUM LEASE COST 

» 0.00 





DATA FOR 

COST ELEMENT SI -- 

CASE 1 STUDIO COSTS 




PER 

PER 

PER 

PER 


FIXED 

PEAK HR 

OFFPK HR 

STUDIO 

GRD LINK 

CAP 

0.00 

0.00 

0.00 

32000.00 

0.00 

INS 

0.00 

0.00 

0.00 

10000.00 

0.00 

LES 

0.00 

0.00 

0.00 

0.00 

0.00 

OMA 

0.00 

0.00 

0.00 

9200.00 

0.00 

MINIMUM 

LEASE COST 

* 0. 

00 




DATA FOR 

COST ELEMENT 

M2 — 2- 

-HOP MICROUV TO TOC 




PER 

PER 

PER 

PER 


FIXED PEAK HR 

OFFPK HR 

STUDIO 

GRD LINK 

CAP 

0.00 

0.00 

0.00 

52350.00 

0.00 

INS 

0.00 

0.00 

0.00 

9500.00 

0.00 

LES 

0.00 

0.00 

0.00 

0.00 

0.00 

OMA 

0.00 

0.00 

0.00 

3300.00 

0.00 

MINIMUM 

LEASE COST > 

0.00 





REPORT 2 - (continued) 
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FEDERAL REGIONAL OFFICES* TOP 20 SHSA'S — COST ALLOCATION CASE 


MATRIX OF COST ELEMENTS AND PATHS— UPLINK 

SU S3 Ml WL T2 SI M2 
MICROWAVE TO E-T * * » 

VIDEO LINK TO E-T » » * 

USE OWN E-T « « « 

MICROWAVE TO OWN E-T « « « « 

VIDEO LK TO OWN E-T » * « * 


REPORT 3 - MATRIX OF COST ELEMENTS AND PATHS - 
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- UPLINK 


FEDERAL REGIONAL OFFItc,S» TOP 20 SHSA'S — COST ALLOCATION CASE 


MATRIX OF PATHS AND CITIES-- UPLINK 


CITY 

WASHINGTON 

WASHINGTON 


ORG 

1 

5 


2 3 4 

* ♦ 

» t 


5 

« 

X 


REPORT 4 - MATRIX OF PATHS AND CITIES — UPLINK 
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FEDERAL RESIONAL OFFICESf TOP 20 SMSA'S 


COST ALLOCATION CASE 


UPLINK COST INDEX VALUES 


WASHINGTON 1 

PEAK HR OFFPK HR STUDIO GRD LINK 

0.00 1300.00 1.00 1.00 


WASHINGTON 2 

PEAK HR OFFPK HR STUDIO GRD LINK 

1040.00 0.00 1.00 1.00 


REPORT 5 - UPLINK COST INDEX VALUES 
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FEDERAL REGIONAL OFFICES* TOP 20 SMSA'S — COST ALLOCATION CASE 
MATRIX OF TALKBACK REOUIREMENTS 


DOWNLINK CITY 

0R6 

WAS 

WAS 



1 

2 

BOSTON 

1 

2.5 

0.0 

PHILADELPHIA 

1 

2.5 

0.0 

NEW YORK 

1 

2.5 

0.0 

ATLANTA 

1 

2.5 

0.0 

CHICAGO 

1 

2.5 

0.0 

DALLAS 

1 

2.5 

0.0 

KANSAS CITY 

1 

2.5 

0.0 

DENVER 

1 

2.5 

0.0 

SAN FRANCISCO 

1 

2.5 

0.0 

SEATTLE 

1 

2.5 

0.0 

LOS ANGELES 

2 

0.0 

2.0 

DETROIT 

2 

0.0 

2.0 

PITTSBURGH 

2 

0.0 

2.0 

ST. LOUIS 

2 

0.0 

2.0 

BALTIMORE 

2 

0.0 

2.0 

CLEVELAND 

2 

0.0 

2.0 

HOUSTON 

2 

0.0 

2.0 

NEWARK 

2 

0.0 

2.0 

MINNEAPOLIS 

2 

0.0 

2.0 

ORANGE COUNTY 

2 

0.0 

2.0 

MILWAUKEE 

2 

0.0 

2.0 

WASHINGTON 

2 

0.0 

0.0 

BOSTON 

2 

0.0 

2.0 

NEW YORK 

2 

0.0 

2.0 

PHILADELPHIA 

2 

0.0 

2.0 

ATLANTA 

2 

0,0 

2.0 

CHICAGO 

2 

0.0 

2.0 

DALLAS 

2 

0.0 

2.0 

SAN FRANCISCO 

2 

0.0 

2.0 

SEATTLE 


0.0 

2.0 


REPORT 6 - MATRIX OP TALKBACK REQUIREMENTS 
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FEDERAL REOIONAU OFFICES* TOP 20 SUSA'S — COST ALLOCATION CASE 

SENSITIVITY OF PATH COSTS TO NETWORK PARAMETERS— UPLINK 


PATH 1 — MICROWAVE TO E-T 




PER 

PER 

PER 

PER 


FIXED 

PEAK HR 

OFFPK HR 

STUDIO 

GRD LINK- 

CAPITAL 

0. 

0. 

0. 

172000. 

27400. 

INSTALL 

0. 

0. 

0. 

45000. 

6000. 

LEASE 

0. 

279. 

125. 

0. 

0. 

OtMtA 

0. 

0. 

0. 

98500. 

2500. 

ANNUALZD 

0. 

279. 

125. 

142183. 

9224. 

PATH 2 — 

VIDEO LINK TO 

E-T 






PER 

PER 

PER 

PER 


FIXED 

PEAK HR 

OFFPK HR 

STUDIO 

GRD link 

CAPITAL 

0. 

0. 

0. 

172000. 

0. 

INSTALL 

0. 

0. 

0. 

45000. 

2500. 

LEASE 

0. 

279. 

125. 

0. 

12000. 

OtMtA 

0. 

0. 

0. 

98500. 

0. 

ANNUALZD 

0. 

279. 

125. 

142183. 

12503. 

PATH 3 — 

USE OWN E-T 







PER 

PER 

PER 

PER 


FIXED 

PEAK HR 

OFFPK HR 

STUDIO 

GRD LINK 

CAPITAL 

203500. 

0. 

0. 

172000. 

0. 

INSTALL 

30000. 

0. 

0. 

45000. 

0. 

LEASE 

0. 

279. 

125. 

0. 

0. 

OtMtA 

95000. 

0. 

0. 

98500. 

0. 

ANNUALZD 

142004. 

279. 

125. 

142183. 

0. 

path 4 — 

MICROWAVE TO 

OWN E-T 






PER 

PER 

PER 

PER 


FIXED 

PEAK HR 

OFFPK HR 

STUDIO 

GRD LINK- 

CAPITAL 

203500. 

0. 

0. 

172000. 

27400. 

INSTALL 

30000. 

0. 

0. 

45000. 

6000. 

LEASE 

0. 

279. 

125. 

0. 

0 . 

OtMtA 

95000. 

0. 

0. 

98500. 

2500. 

ANNUALZD 

142004. 

279. 

125. 

142183. 

9224. 

PATH 5 — 

VIDEO LK TO OWN E-T 






PER 

PER 

PER 

PER 


FIXED 

PEAK HR 

OFFPK HR 

STUDIO 

GRD LINK 

CAPITAL 

203500. 

0. 

0. 

172000. 

0 . 

INSTALL 

30000. 

0 . 

0 . 

45000. 

2500. 

LEASE 

0. 

279. 

125. 

0 . 

12000. 

OtMtA 

95000. 

0. 

0. 

98500. 

0 . 

ANNUALZD 

142004. 

279. 

125. 

142183. 

12503. 


REPORT 7 - SENSITIVITY OF PATH COSTS TO NETWORK PARAMETERS — UPLINK 
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FEDERAL REGIONAL 0FrICE8> TOP 20 SMSA'S — COST ALLOCATION CASE 

COST OF EACH PATH— UPLINK 


CITY 

PATH 

CAPITAL 

INSTALL 

LEASE 

OSNtA 

ANNUALIZED 

UASHINGTON 

1 

398800. 

102000. 

452660. 

202000. 

755472. 


2 

344000. 

95000. 

476660. 

197000. 

762032. 


4 

602300. 

132000. 

452660. 

297000. 

897477. 


5 

547500. 

125000. 

476660. 

292000. 

904036. 


REPORT 8 - COST OF EACH PATH 


UPLINK 


FEDERAL REGIONAL 

OFFICES# TOP 

20 SHSA'S ~ 

- COST ALLOCATION CASE 



UPLINK COSTS 

BY CITY 



CITY 

CAPITAL 

INSTALL 

LEASE 

OINIA 

ANNUALIZED 

WASHINGTON 

396800. 

102000. 

452660. 

202000. 

755472. 


PEAK HR 

OFFPK HR 

STUDIO 

GRD LINK 



1040. 

1300. 

2. 

2. 


UPLINK TOTAL 

398800. 

102000. 

4S2660. 

202000. 

755472. 


REPORT 9 - UPLINK COSTS BY CITY 
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FEPERAL REGIONAL OFFICES* TOP 20 SMSA'S — COST ALLOCATION CASE 
DOWNLINK COST ELEMENT DATA 


DATA FOR COST ELEMENT CM — 3RD CHNL RCVR ON E-T 


FIXED 


PER PER PER 


PEAK HR OFFPK MR 0R6N2TN 


CAP 5000.00 0.00 

INS 0.00 0.00 


0.00 

0.00 


0.00 

0.00 


LES 0.00 0.00 

(iHA 0.00 0.00 

MINIMUM LEASE COST - 0.00 


0.00 

0.00 


0.00 

0.00 


DATA FOR COST ELEMENT CT — RENT COM CARR L-T 


FIXED 


PER 

PEAK HR 


PER PER 

OFFPK HR 0RGN2TN 


CAP 


0.00 0.00 0.00 


0.00 


INS 0.00 

LES • 0.00 

DMA 0.00 

MINIMUM LEASE COST 


0.00 0.00 

35.00 35.00 

0.00 0.00 

0.00 


0.00 

0.00 

0.00 


DATA FOR COST ELEMENT PT — PUT EARTH TERMINAL 


FIXED 


PER 

PEAK HR 


PER PER 

OFFPK HR ORGNZTN 


CAP 

9000.00 

0.00 

INS 

6200.00 

0.00 

LES 

0.00 

0.00 

OMA 

1500.00 

0.00 

MINIMUM 

LEASE COST - 

0 


0.00 

5000.00 

0.00 

0.00 

0.00 

0.00 

0,00 

0.00 


DATA FOR COST ELEMENT Ml — 1-MOP MICROWAVE LINK- 


FIXED 


PER 

PEAK HR 


PER PER 

OFFPK HR ORGNZTN 


CAP 

27400.00 

0.00 

0.00 

INS 

4000.00 

0.00 

0.00 

LES 

0.00 

0.00 

0.00 

OMA 

2500.00 

0.00 

0.00 

MINIMUM 

LEASE COST - 

0.00 



0.00 

0.00 

0.00 

0.00 


(continued) 


REPORT 10 - DWNLINK COST ELEMENT DATA 
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DATA FOR COST ELEMENT VL — ATtT VIDEO LINK 


riXED 


PER 

PEAK HR 


PER 

OFFPK HR 


PER 

ORONZTN 


CAP 

0.00 

0.00 

0.00 

INS 

2500.00 

0.00 

0.00 

LES 

12000.00 

0.00 

0.00 

OMA 

0.00 

0.00 

0.00 

MINIMUM 

LEASE COST • 

0.00 



0.00 

0.00 

0.00 

0.00 


DATA FOR COST ELEMENT CU -- USAGE OF CATV SYSTEM 

PER PER PER 

FIXED PEAK HR OFFPK HR ORGNZTN 


CAP 

1700.00 

0.00 

0.00 

0.00 

INS 

300.00 

0.00 

0.00 

0.00 

LES 

0.00 

0.00 

0.00 

0.00 

OMA 

0.00 

0.00 

0.00 

0.00 

WIN I MUM 

LEASE COST - 

0.00 




DATA FOR 

COST ELEMENT CC — 

CATV SUBSCRIPTIONS 



PER 

PER 

PER 


FIXED 

PEAK HR 

OFFPK HR 

ORGNZTN 

CAP 

0.00 

0.00 

0.00 

0.00 

INS 

0.00 

0.00 

0.00 

0.00 

LES 

0.00 

0.00 

0.00 

180.00 

OMA 

0.00 

0.00 

0.00 

0.00 

MINIMUM 

LEASE COST 

• 0. 

00 



DATA FOR 

COST ELEMENT 

MT •— TV 

MONITORS 




PER 

PER 

PER 


FIXED PEAK HR 

OFFPK HR 

ORONZTN 

CAP 

0.00 

0.00 

0.00 

1000.00 

INS 

0.00 

0.00 

0.00 

0.00 

LES 

0.00 

0.00 

0 c'1 

0.00 

OMA 

0.00 

0.00 

0.00 

100.00 

MINIMUM 

LEASE COST ■ 

0.00 




DATA FOR COST ELEMENT M2 — TWO-HOP MICROWAVE 


FIXED 


PER 

PEAK HR 


PER PER 

OFFPK HR ORONZTN 


CAP 

52350.00 

0.00 

0.00 

INS 

9500.00 

0.00 

0.00 

LES 

0.00 

0.00 

c.oo 

OMA 

3300.00 

0.00 

0.00 


MINIMUM LEASE COST ■ 0.00 


0.00 

0.00 

0.00 

0.00 


(contiuued) 
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FOR COST ELEMENT NC — CATV COLOC WITH E-T 



FIXED 

PER 

PEAK HR 

PER 

OFFPK HR 

PER 

0R0N2TN 

CAP 

0.00 

0.00 

0.00 

0.00 

INS 

0.00 

0.00 

0.00 

0.00 

LES 

-180.00 

0.00 

0.00 

0.00 

OMA 

0.00 

0.00 

0.00 

0.00 

MINIMUM 

LEASE COST 

■-10000.00 




REPORT 10 


(continued) 


federal regional OFEICES* top 20 SMSA'S — COST ALLOCATION CASE 

MATRIX OF COST ELEMENTS AND PATHS— DOWNLINK 

CH CT PT Ml WL CU CC MT M2 NC 
DIRECT LINK TO CATV « » « « 

OWN LINK TO CATV SYS « « t « « 

PRIVATE EARTH TERM « « 

MICROWAVE TO USER « * « 

2“H0P MCRWV TO USER * * * 

MONITOR ONLY « 

RENTED E-T TO CATV * * • * 


REPORT 11 - MATRIX OF COST ELEMENTS AND PATHS — DOWNLINK 
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FEDERAL REGIONAL OFFICES* TOF 20 SNSA'S 


COST ALLOCATION CASE 




MATRIX OF PATHS AND Cl TIES --DOWNLINK 


CITY 

ORG 

1 

2 

3 

4 

5 i 

7 

BOSTON 

1 

« 

« 

» 

« 



PHILADELPHIA 

1 

« 

» 

« 

» 


« 

NEW YORK 

1 

« 

» 


« 


» 

ATLANTA 

1 

« 

« 

« 

« 



CHICAGO 

1 

« 

« 

« 

« 


» 

DALLAS 

1 

« 

« 

« 

« 


» 

KANSAS CITY 

1 

« 

« 

« 

» 


« 

DENVER 

1 

* 

« 

« 

« 


« 

SAN FRANCISCO 

1 

* 

« 


« 


» 

SEATTLE 

1 

« 

« 

« 

« 


X 

LOS ANGELES 

"y 

« 


« 

» 


X 

DETROIT 

2 

« 

« 


« 


X 

PITTSBURGH 

2 

« 

« 

« 

« 


X 

ST. LOUIS 

2 



« 

» 



BALTIMORE 

2 

« 

« 

« 

« 


X 

CLEVELAND 

2 

« 

« 

« 

« 


X 

HOUSTON 

2 

» 

* 

« 

« 


X 

NEWARK 

2 

* 


* 

» 


X 

MINNEAPOLIS 

2 

* 

« 

* 



X 

ORANGE COUNTY 

9 



* 

« 



MILWAUKEE 

2 



« 

« 



WASHINGTON 

2 

* 

* 

* 

« 

* 

X 

BOSTON 

2 

* 

* 

« 

« 


X 

NEW YORK 

2 

t 

« 

« 

» 


X 

PHILADELPHIA 

2 

* 



« 


X 

ATLANTA 

2 

* 

« 


« 


X 

CHICAGO 

r> 

* 

« 

* 

« 


X 

DALLAS 

2 

« 

« 

» 

« 


X 

SAN FRANCISCO 

2 

* 

« 

« 



X 

SEATTLE 

2 

* 

* 

« 

« 


X 


REPORT 12 - MATRIX OF PATHS AND CITIES — DOWNLINK 
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FEDERAL REGIONAL OFFICES* TOP 20 SMSA'S -> COST ALLOCATION CASE 

DOWNLINK COST INDEX (.VALUES 


BOSTON 

1 




PEAK HR 


OFFPK HR 

ORGNZTN 


0.00 


1300.00 

1.00 


PHILADELPHIA 

1 




PEAK HR 


OFFPK HR 

ORGNZTN 


0.00 


1300.00 

1.00 


NEW YORK 

1 




PEAK HR 


OFFPK HR 

ORGNZTN 


0.00 


1300.00 

1.00 


ATLANTA 

1 




PEAK HR 


OFFPK HR 

ORGNZTN 


0.00 


1300.00 

1.00 


CHICAGO 

1 




PEAK HR 


OFFPK HR 

ORGNZTN 


0.00 


1300.00 

1.00 


DALLAS 

1 




PEAK HR 


OFFPK HR 

ORGNZTN 


0.00 


1300.00 

1.00 


KANSAS CITY 

1 




PEAK HR 


OFFPK HR 

ORGNZTN 


0.00 


1300.00 

1.00 


DENVER 

1 




PEAK HR 


OFFPK HR 

ORGNZTN 


0.00 


1300.00 

1.00 


SAN FRANCISCO 

1 




PEAK HR 


OFFPK HR 

ORGNZTN 


0.00 


1300.00 

1.00 


SEATTLE 

1 




PEAK HR 


OFFPK HR 

ORGNZTN 


0.00 


1300.00 

1.00 


LOS ANGELES 

r» 




PEAK HR 


OFFPK HR 

ORGNZTN 


1040.00 


0.00 

1.00 


DETROIT 

2 




PEAK HR 


OFFPK HR 

ORGNZTN 


1040.00 


0.00 

1.00 


PITTSBURGH 

2 




PEAK HR 


OFFPK HR 

ORGNZTN 


1040.00 


0.00 

1.00 


ST. LOUIS 

2 




PEAK HR 


OFFPK HR 

ORGNZTN 


1040.00 


0.00 

1.00 

(continued) 


REPORT 13 - DOWNLINK COST INDEX VALUES 


C-20 





BALTIMORE 

PEAK HR 
1040.00 

2 

OFPPK HR 
0.00 

0RGN2TN 

1.00 

CLEUELAND 

PEAK HR 
1040.00 

2 

OFFPK HR 
0.00 

ORGNZTN 

1.00 

HOUSTON 

PEAK HR 
1040.00 

2 

OFFPK HR 
0.00 

ORGNZTN 

1.00 

NEWARK 

PEAK HR 
1040.00 

2 

OFFPK HR 
0.00 

ORGNZTN 

1.00 

MINNEAPOLIS 

PEAK HR 
1040.00 

2 

OFFPK HR 
0.00 

ORGNZTN 

1.00 

ORANGE COUNTY 

PEAK HR 
1040.00 

2 

OFFPK HR 
0.00 

ORGNZTN 

1.00 

MILWAUKEE 

PEAK HR 
1040.00 

•y 

OFFPK HR 
0.00 

ORGNZTN 

1.00 

WASHINGTON 

PEAK HR 
1040.00 

2 

OFFPK HR 
0.00 

ORGNZTN 

1.00 

BOSTON 

PEAK HR 
1040.00 

2 

OFFPK HR 
0.00 

ORGNZTN 

1.00 

NEW YORK 

PEAK HR 
1040.00 

2 

OFFPK HR 
0.00 

ORGNZTN 

1.00 


PHILADELPHIA 



PEAK HR 
1040.00 


OFFPK HR 
0.00 

ORGNZTN 

1.00 

ATLANTA 

PEAK HR 
1040.00 

9 

OFFPK HR 
0.00 

ORGNZTN 

1.00 

CHICAGO 

PEAK HR 
1040.00 

2 

OFFPK HR 
0.00 

ORGNZTN 

1.00 

DALLAS 

PEAK HR 
1040.00 

2 

OFFPK HR 
0.00 

ORGNZTN 

1.00 

SAN FRANCISCO 

PEAK HR 
1040.00 

2 

OFFPK HR 
0.00 

ORGNZTN 

1.00 

SEATTLE 

PEAK HR 
1040.00 

2 

OFFPK HR 
0.00 

ORGNZTN 

1.00 


REPORT 13 - (continued) 
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FEOERAi. REGIONAL OFFICES* TOR 20 SNSA'S — COST ALLOCATION CASE 

SENSITIUITY OF PATH COSTS TO NETWORK PARAMETERS— DOWNLINK 

PATH 1 — DIRECT LINK TO CATV 

PER PER PER 



FIXED 

PEAK HR 

OFFPK HR 

ORGNZTN 

CAPITAL 

4700. 

0. 

0. 

1000. 

INSTALL 

300. 

0. 

0. 

0. 

LEASE 

0. 

0. 

0. 

180. 

OtMtA 

0. 

0. 

0. 

100. 

ANNUALZD 

1409. 

0. 

0. 

481 . 


PATH 2 — OWN LINK TO CATV SYS 

PER PER PER 



FIXED 

PEAK HR 

OFFPK HR 

ORGNZTN 

CAPITAL 

38100. 

0. 

0. 

6000. 

INSTALL 

12500. 

0. 

0. 

0. 

LEASE 

0. 

0. 

0. 

180. 

OtMSA 

4000. 

0. 

0. 

100. 

ANNUALZD 

14186. 

0. 

0. 

1488. 


PATH 3 — PRIVATE EARTH TERM 

PER PER PER 



FIXED 

PEAK HR 

OFFPK HR 

ORGNZTN 

capital 

9000. 

0. 

0. 

6000 

INSTALL 

6200. 

0. 

0. 

0 

LEASE 

0. 

0. 

0. 

0 

OSMtA 

1500. 

0. 

0. 

100 

ANNUALZD 

4560. 

0. 

0. 

1308 

PATH 4 — MICROWAVE TO 

USER 





PER 

PER 

PER 


FIXED 

PEAK HR 

OFFPK HR 

ORGNZTN 

CAPITAL 

27400. 

0. 

0. 

1000 

INSTALL 

6000. 

0. 

0. 

0 

LEASE 

0. 

35. 

35. 

0 

OSMtA 

2500. 

0. 

0. 

100 

ANNUALZD 

9224. 

35. 

35. 

301 

PATH 5 — 2- 

■HOP MCRWV 

TO USER 





PER 

PER 

PER 


FIXED 

PEAK HR 

OFFPK HR 

ORGNZTN 

CAPITAL 

52350. 

0. 

0. 

1000 

INSTALL 

9500. 

0. 

0. 

0 

LEASE 

0. 

35. 

35. 

0 

OtMtA 

3300. 

0. 

0. 

100 

ANNUALZD 

15751. 

35. 

35. 

301 


(continued) 


REPORT 14 - SENSITIVITY OF PATH COSTS TO NETWORK PARAMETERS — DOWNLINK 
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' ■ f 

i I 


PATH 6 — HONITOR ONLY 




PER 

PER 

PER 


FIXED 

PEAK HR 

OFFPK HR 

ORGNZTN 

CAPITAL 

0. 

0. 

0. 

1000 

INSTALL 

0. 

0. 

0. 

0 

LEASE 

0. 

0. 

0. 

0 

OtNIA 

0. 

0. 

0. 

100 

ANNUALZD 

0. 

0. 

0. 

301 

PATH 7 — 1 

RENTED E-T TO 

CATV 





PER 

PER 

PER 


FIXED 

PEAK HR 

OFFPK HR 

ORONZTN 

CAPITAL 

1700. 

0. 

0. 

1000 

INSTALL 

300. 

0. 

0. 

0 

LEASE 

0. 

35. 

35. 

180 

OSNSA 

0. 

0. 

0. 

100 

ANNUALZD 

403. 

35. 

35. 

481 


REPORT 14 (continued) 
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FEDERAL REGIONAL 

OFFICES. 

TOP 20 SHSA 

'S — COST 

ALLOCATION 

CASE 




COST OF EACH 

PATH--DOWNLINK 



CITY 

PATH 

CAPITAL 

INSTALL 

LEASE 

OIMtA 

ANNUALIZED 

BOSTON 

1 

8700. 

300. 

360. 

200. 

2372. 


2 

50100. 

12500. 

360. 

4200. 

17162. 


3 

21000. 

6200. 

0. 

1700. • 

7175. 


4 

29400. 

6000. 

81900. 

2700. 

91726. 


5 

543S0. 

9500. 

81900. 

3500. 

98253. 


7 

3700. 

300. 

82260 . 

200. 

83265. 

PHILADELPHIA 

1 

8700. 

300. 

360. 

200. 

2372. 


2 

SOIOO. 

12500. 

360. 

4200. 

17162. 


3 

21000. 

6200. 

0. 

1700. 

7175. 


4 

29400. 

6000. 

81900. 

2700. 

91726. 


5 

54350. 

9500. 

81900. 

3500. 

98253. 


7 

3700. 

300. 

82260. 

200. 

83265. 

NEW YORK 

1 

8700. 

300. 

360. 

200. 

2372. 


2 

50100. 

12500. 

360. 

4200. 

17162. 


3 

21000. 

6200. 

0. 

1700. 

7175. 


4 

29400. 

6000. 

81900. 

2700. 

91726. 


5 

54350. 

9500. 

81900. 

3500. 

98253. 


7 

3700. 

300. 

82260. 

200. 

83265. 

ATLANTA 

1 

8700. 

300. 

360. 

200. 

2372. 


2 

50100. 

12500. 

360. 

4200. 

17162. 


3 

21000. 

6200. 

0. 

1700. 

7175. 


4 

29400. 

6000. 

81900. 

2700. 

91726. 


S 

54350. 

9500. 

81900. 

3500. 

98253. 


7 

3700. 

300. 

82260. 

200. 

83265. 

CHICAGO 

1 

8700. 

300. 

360. 

200. 

2372. 


2 

50100. 

12500. 

360. 

4200. 

17162. 


3 

21000. 

6200. 

0. 

1700. 

7175. 


4 

29400. 

6000. 

81900. 

2700. 

91726. 


5 

54350. 

9500. 

81900. 

3500. 

98253. 


7 

3700. 

300. 

82260. 

200. 

83265. 

DALLAS 

1 

8700. 

300. 

360. 

200. 

2372. 


2 

50100. 

12500. 

360. 

4200. 

17162. 


3 

21000. 

6200. 

0. 

1700. 

7175. 


4 

29400. 

6000. 

81900. 

2700. 

91726. 


5 

54350. 

9500. 

81900. 

3500. 

98253. 


7 

3700. 

300. 

82260. 

200. 

83265. 

KANSAS CITY 

1 

7700. 

300. 

180. 

100. 

1890. 


2 

44100. 

12500. 

180. 

4100. 

15674. 


3 

15000. 

6200. 

0. 

1600. 

5868. 


4 

28400. 

6000. 

45500. 

2600. 

55025. 


5 

53350. 

9500. 

45500. 

3400. 

61552. 


7 

2700. 

300. 

45680 . 

100. 

46384. 

DENVER 

1 

7700. 

300. 

180. 

100. 

1890. 


2 

44100. 

12500. 

180. 

4100. 

15674. 


3 

15000. 

6200. 

0. 

1600. 

5868. 


4 

28400. 

6000. 

45500. 

2600. 

55025. 


7 

2700. 

300. 

45680. 

100. 

46384. 


(continued) 
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C-24 


SAN FRANCISCO 

1 

8700. 

300. 

360. 

200. 

2372. 


2 

50100. 

12500. 

360. 

4200. 

17162. 


3 

21000. 

6200. 

0. 

1700. 

7175. 


4 

29400. 

6000. 

81900. 

2700. 

91726. 


7 

3700. 

300. 

82260. 

200. 

83265. 

SEATTLE 

1 

8700. 

300. 

360. 

200. 

2372. 


2 

50100. 

12500. 

360. 

4200. 

17162. 


3 

21000. 

6200. 

0. 

1700. 

7175. 


4 

29400. 

6000. 

81900. 

2700. 

91726. 


7 

3700. 

300. 

82260. 

200. 

83265. 

LOS ANOELES 

1 

7700. 

300. 

180. 

100. 

1890. 


2 

44100. 

12500. 

180. 

4100. 

15674. 


3 

15000. 

6200. 

0. 

1600. 

5868. 


4 

28400. 

6000. 

36400. 

2600. 

45925. 


7 

2700. 

300. 

36580. 

100. 

37284. 

DETROIT 

1 

7700. 

300. 

180. 

100. 

1890. 


2 

44100. 

12500. 

180. 

4100. 

15674. 


3 

15000, 

6200. 

0. 

1600. 

5868. 


4 

28400. 

6000. 

36400. 

2600. 

45925. 


7 

2700, 

300. 

36580. 

100. 

37284. 

PITTSBURGH 

1 

7700. 

300. 

180. 

100. 

1890. 


2 

44100. 

12500. 

180. 

4100. 

15674. 


3 

15000. 

6200. 

0. 

1600. 

5868. 


4 

28400. 

6000. 

3c 400 . 

2600. 

45925. 


7 

2700. 

300. 

36580. 

100. 

37284, 

ST. LOUIS 

3 

15000. 

6200. 

0. 

1600. 

5868. 


4 

28400. 

6000. 

36400. 

2600. 

45925. 

BALTIHORE 

1 

7700. 

300. 

180. 

100. 

1890. 


r» 

44100. 

12500. 

180. 

4100. 

15674. 


3 

15000. 

6200. 

0. 

1600. 

5868. 


4 

28400. 

6000. 

36400. 

2600. 

45925. 


7 

2700. 

300. 

36580. 

100. 

37284, 

CLEUELANO 

1 

7700. 

300. 

180. 

100. 

1890. 


2 

44100. 

12S00. 

180. 

4100. 

15674. 


3 

15000. 

6200. 

0. 

1600. 

5868. 


4 

28400. 

6000. 

36400. 

2600. 

45925, 


7 

2700. 

300. 

36580. 

100. 

37284. 

HOUSTON 

1 

7700. 

300. 

180. 

100. 

1890. 


2 

44100. 

12500. 

180. 

4100. 

15674. 


j 

15000. 

6200. 

0. 

1600. 

5868. 


4 

28400. 

6000. 

36400. 

2600. 

45925. 


7 

2700. 

300. 

36580 . 

100. 

37284. 

NEWARK 

1 

7700. 

300. 

180. 

100. 

1890. 


2 

44100. 

12500. 

180. 

4100. 

15674. 


3 

15000. 

6200. 

0. 

1600. 

5868. 


4 

28400. 

6000. 

36400. 

2600. 

45925. 


7 

2700. 

300. 

36580. 

100. 

37284. 

MINNEAPOLIS 

1 

7700. 

300. 

180. 

100. 

1890. 


n 

44100. 

12500. 

180. 

4100. 

15674. 


3 

15000. 

6200. 

0. 

1600. 

5868. 


4 

28400. 

6000. 

36400. 

2600. 

45925. 


7 

2700. 

300. 

36580. 

100. 

37284. 


(continued) 
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ORANOE COUNTY 

3 

15000. 

4200. 

0. 

1400. 

5868 


4 

28400. 

4000. 

34400 . 

2400. 

45925 

MILWAUKEE 

3 

15000. 

4200. 

0. 

1400. 

5848 


4 

2S400. 

4000. 

34400. 

2400. 

45925 

WASHINGTON 

1 

7700. 

300. 

180. 

100. 

1890 


2 

44100. 

12500. 

180. 

4100. 

15474 


3 

15000. 

4200. 

0. 

1400. 

5848 


4 

28400. 

4000. 

34400. 

2400. 

45925 


6 

1000. 

0. 

0. 

100. 

301 


7 

2700. 

300. 

34580 . 

100. 

37284 


REPORT 15 - (continued) 
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1 


LI 

i ! 

I I 

FEDERAL. REOIONM. 

CITY 

iOSTON 

CITY 

FHII.ADELRHIA 

) t 

^ M 

CITY 

i NEU YORK 


CITY 

ATLANTA 

CITY 

CHICAGO 

CITY 

DALLAS 

CITY 

KANSAS CITY 


OFFICES* TOF 20 SHSA'S — COST ALLOCATION CASE 
DOWNLINK COSTS BY CITY 


CAPITAL 

INSTALL 

LEASE 

OtMIA 

ANNUALIZED 

S700. 

300. 

340. 

200. 

2372. 

PEAK HR 

OFFPK HR 

ORGNZTN 



1040. 

1300. 

2. 



CAPITAL 

INSTALL 

LEASE 

OtMtA 

annualized 

8700. 

300. 

340. 

200. 

2372. 

PEAK HR 

OFFPK HR 

ORGNZTN 



1040. 

1300. 

2. 



CAPITAL 

INSTALL 

LEASE 

OINSA 

ANNUALIZED 

8700. 

300. 

340. 

200. 

2372. 

PEAK HR 

OFFPK HR 

ORGNZTN 



1040. 

1300. 

2. 



CAPITAL 

INSTALL 

LEASE 

OIMtA 

ANNUALIZED 

8700. 

300. 

340. 

700. 

2372. 

PEAK HR 

OFFPK HR 

ORGNZTN 



1040. 

1300. 

2. 



CAPITAL 

INSTALL 

LEASE 

OlHtA 

ANNUALIZED 

8700. 

300. 

340. 

200. 

2372. 

PEAK HR 

OFFPK HR 

ORGNZTN 



1040. 

1300. 

2. 



CAPITAL 

INSTALL 

LEASE 

OtMIA 

ANNUALIZED 

8700. 

300. 

340. 

200. 

2372. 

PEAK HR 

OFFPK HR 

ORGNZTN 



1040. 

1300. 

2. 



CAPITAL 

INSTALL 

LEASE 

OtMIA 

ANNUAL I ’ED 

7700. 

300. 

180. 

100. 

1890. 

PEAK HR 

OFFPK HR 

ORGNZTN 



0. 

1300. 

1. 


(continued) 
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CITY 

CAPITAL 

INSTALL 

LEASE 

OINIA 

annualized 

DENVER 

7700. 

300. 

180. 

100. 

1890. 


PEAK HR 

OFPPK HR 

ORONZTN 




0. 

1300. 

1. 



CITY 

CAPITAL 

INSTALL 

LEASE 

OtMIA 

ANNUALIZED 

SAN FRANCISCO 

6700. 

300. 

340. 

200. 

2372. 


PEAK HR 

OPFPiv MR 

ORONZTN 




1040. 

1300. 

2. 



CITY 

CAPITAL 

install 

LEASE 

OIMtA 

annualized 

SEATTLE 

8700. 

300. 

340. 

200. 

2372. 


PEAK HR 

OPPPK HR 

ORONZTN 




1040. 

1300. 

2. 



city 

CAPITAL 

INSTALL 

LEASE 

OtMtA 

ANNUALIZED 

LOS ANOELES 

7700. 

300. 

160. 

100. 

1890. 


PEAK HR 

OPFPK HR 

ORONZTN 




1040. 

0. 

1 . 



CITY 

CAPITAL 

INSTALL 

LEASE 

OtM' A 

ANNUALIZED 

DETROIT 

7700. 

300. 

ISO. 

100. 

1890, 


PEAK HR 

OFPPK HR 

ORONZTN 




1040. 

0. 

1. 



CITY 

CAPITAL 

INSTALL 

LEASE 

OtMIA 

ANNUALIZED 

PITTSBURGH 

7700. 

300. 

180. 

100. 

1890. 


PEAK HR 

OFFPK HR 

ORONZTN 




1040. 

0. 

1. 



CITY 

CAPITAL 

INSTALL 

LEASE 

OtMtA 

ANNUALIZED 

ST. LOUIS 

15000. 

4200. 

0. 

1400. 

5848. 


PEAK HR 

OFFPK HR 

ORONZTN 




1040. 

0. 

1 . 



CITY 

CAPITAL 

INSTALL 

LEASE 

OtMIA 

ANNUALIZED 

BALTIMORE 

7700. 

300. 

180. 

100. 

1890. 


PEAK HR 

OFFPK HR 

ORONZTN 




1040. 

0. 

1. 


(continued) 
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CITY 

CLEVELAND 

CITY 

HOUSTON 

CITY 

NEWARK 


CITY 

HINNEAAOLIS 

CITY 

ORANGE COUNTY 
CITY 

MILWAUKEE 

CITY 

WASHINGTON 


downlink total 


CAPITAL 

7700. 

PEAK HR 
1040. 

CAPITAL 

7700. 

PEAK HR 
1040. 

CAPITAL 

7700. 

PEAK HR 
1040. 

CAPITAL 

7700. 

PEAK HR 
1040. 

CAPITAL 

15000. 

PEAK HR 
1040. 

CAPITAL 

15000. 

PEAK HR 
1040. 

CAPITAL 

1000. 

PEAK HR 
1040. 


INSTALL 
300. 
OPPPK HR 
0 . 

install 

300. 

OPFPK 

0 . 

INSTALL 
300. 
Ol'PPK HR 
0 . 

INSTALL 
300. 
OPFPK HR 
0 . 

install 

4200. 
OPFPK HR 
0 . 

INSTALL 
4200. 
OPFPK HR 
0 . 

INSTALL 

0 . 

OPFPK HR 

0 . 


LEASE 

ISO. 

ORONZTN 

1 . 

LEASE 

160. 

ORGNZTN 

1 . 

LEASE 

ISO. 

ORONZTN 

1 . 

LEASE 

180. 

ORONZTN 

1 . 

LEASE 

0 . 

ORGNZTN 

1 . 

LEASE 

0 . 

ORGNZTN 

1 . 

LEASE 

0 . 

ORONZTN 

1 . 


OtMtA annualized 
100. 1890. 

OIMIA annualized 
100. 1890. 

otntA annualized 
100. 1890. 

OSMtA annualized 
100. 1890. 

OtMtA annualized 

1400. 5848. 

OtMtA annualized 

1400. 5648. 

OtMtA ANNUALIZED 
too. 301. 


192400. 24000. 4480. 


7500. 55782. 


REPORT 16 (continued) 
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FEDiRAL RE8I0NAL OFFICES* TOF 20 SHSA'S -- COST ALLOCATION CASE 

TALKtACK 8TSTEN LEASE COSTS 
TO VASHINOTON 


»E)URS WATS COSTS PRIVATE LINE DIRECT DIAL 


CITT 

LEVEL 

UTIL 

. DIRT 

INSTALL 

LEASE 

INSTALL 

LEASE 

INSTALL 

LEASE 

BEST 

BOSTON 

2 

S. 

3f4. 

30. 

141. 

40. 

420. 

40. 

140. 

DDD 

PHILADELPHIA 

2 

S. 

123. 

30. 

141. 

40. 

279. 

40. 

140. 

DDD 

NEW YORK 

2 

5. 

202. 

30. 

141. 

40. 

320. 

40. 

140. 

DDD 

ATLM4TA 

2 

S. 

S41. 

30. 

141. 

40. 

497. 

40. 

140. 

DDD 

CHICAGO 

2 

S. 

8f4. 

30. 

141. 

40. 

524, 

40. 

140. 

DDD 

DALLAS 

2 

5. 

1182. 

30. 

141. 

40. 

830. 

40. 

140. 

DDD 

KANSAS CITY 

2 

2. 

941. 

30. 

105. 

40. 

704. 

40. 

78. 

DDD 

DE»A^R 

2 

2. 

1488. 

•»C, 

105. 

40. 

989. 

40. 

78, 

DDD 

SAN FRANCISCO 

2 

5. 

2434. 

30. 

141. 

40. 

1481. 

40. 

140. 

DDD 

SEATTLE 

2 

S. 

2321. 

30. 

141. 

40. 

1422. 

40. 

140. 

DDD 

LOS ANOELES 

2 

2. 

2293. 

30. 

94. 

40. 

1407. 

40. 

42. 

DDD 

DETROIT 

2 

2. 

39S. 

30. 

94. 

40. 

420. 

40. 

42. 

DDD 

PITTSBUROH 

2 

2. 

190. 

30. 

94. 

40. 

314. 

40. 

42. 

DDD 

ST. LOUIS 

2 

2. 

708. 

30. 

94. 

40. 

583. 

40. 

42. 

DDD 

BALTIMORE 

2 

2. 

35. 

30. 

94. 

40. 

233. 

40. 

42. 

DDD 

CLEVELAND 


2. 

304. 

30. 

94. 

40 . 

373. 

40. 

42. 

ODD 

HOUSTON 

2 

2. 

1217. 

30. 

94. 

40. 

848. 

40. 

42. 

L'DD 

NEWARK 

2 

2. 

197. 

30. 

94. 

40. 

318. 

40. 

42. 

DDD 

MINNEAPOLIS 

«» 

2. 

923. 

30. 

94. 

40. 

495. 

40. 

42. 

DDD 

ORANGE COUNTY 

2 

2. 

2281. 

30. 

9i. 

40. 

1401. 

40. 

42. 

DDD 

MILWAUKEE 

2 

2. 

435. 

30. 

94. 

40 . 

545. 

40. 

42. 

DID 


REPORT 17 - TALKBACK SYSTEM LEASE COSTS 
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rCOERAL ^OXOIML t^ricetr TO^ 20 SHtA'S -- COST ALLOCATION CASE 

t^TWORK COST ALLOCATION 



CAPITAL 

INSTALL 

LEASE 

OtNiA 

ANNUALIZED 

UPLINK 

t PEOERAL 0FPICE8 

I43US. 

34417. 

142500. 

72514. 

271204. 

2 SNSA'S 

2S5A35. 

45383. 

200140. 

120484. 

484244. 

TOTAL 

308800. 

102000. 

452440. 

202000. 

755472. 

OOIMLINK 

I PEKRAL (N^PICES 

S0200. 

1800. 

1800. 

1000. 

13248. 

2 SNSA'S 

142400. 

22200. 

2860. 

4500. 

42514. 

TOTAL 

102400. 

24000. 

4480. 

7500. 

55782. 

VOICE TALK8ACK 

i FEI«RAL OFFICES 

S7. 

240. 

8411. 

0. 

8477. 

2 SNSA'S 

218. 

400. 

14074. 

0. 

15141. 

TOTM. 

305. 

840. 

23587. 

0. 

23818. 

ADNXNISTRATIVE 

1 FEDERAL OFFICES 

0. 

53333. 

0. 

28333. 

30040, 

2 SNSA'S 

0. 

104447. 

0. 

54447. 

78130. 

TOTAL 

0. 

140000. 

0. 

85000. 

117208. 

TOTAL NETWORK 

1 federal offices 

103452. 

91000. 

172011. 

101840. 

332221. 

2 SNSA'S 

300253. 

104850. 

308014. 

102451. 

420040. 

TOTAL 

501705. 

284840. 

480027. 

1 *1500. 

052281. 


REPORT 18 - NETWORK COST ALLOCATION 
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FEDERAL RE6I0NAL OFFICES f TOR 20 SMSA'S -- COST ALLOCATION CASE 


OVERALL COST SUHMARY 



CAPITAL 

PLANNING AND 

ANNUAL 

ANNUAL 

ANNUALIZED 


EXPENDITURES 

INSTALLATION 

LEASE 

OtMtA 

COST 

UPLINK 

398600. 

102000. 

452660. 

202000. 

755472. 

DOWNLINK 

192600. 

24000. 

4680. 

7500. 

55782. 

VOICE TALKBACK 

305. 

840. 

23587. 

0. 

23818. 

ADMINISTRATIVE 

0. 

160000. 

0. 

85000. 

117208. 

TOTALS 

591705. 

286840. 

480927. 

294500. 

952281. 

ANNUALIZED COST 

119112. 

57742. 

480927. 

294500. 

952281. 

EFFECTIVE YEARLY 

COSTS FOR 

8 YEAR. 12.00 

PERCENT AMORTIZATION 

* 952281. 


REPORT 19 - OVERALL COST SUMMARY 
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FCDCKAL REGIONAL OFFICES AND TOF 20 SHSA'S 

UPLINK CITIES— EARTH STATIONS WITHIN IS NILES AND LICENSED TO POINT TO K830 


CALL 

SION 

LICENSEE 

CITY 

STATE 

SERVICE 

SIZE 

«»»»»»»«««««» 1 

WASHINGTON 





WN43 

NATIONAL 

CABLE SATELLITE CORP. 

BREN NAR 

UA 

DFSFESPTR 

0100 

WE74 

ANERICAN 

SATELLITE CORPORATION 

6REENBELT 

ND 

DFSFESCTR 

0100 


DOWNLINK CITIES — EARTH STATIONS WITHIN 15 NILES AND LICENSED TO POINT TO KS30 


CALL SIGN LICENSEE CITY STATE SERVICE SIZE 

M****»******t BOSTON NA 


WU57 

WARNER CABLE CORP. 

SALEN 

NA 

DFSFESPRO 

0050 

WT25 

NEW BOSTON TELEVISION. INC. 

BOSTON 

NA 

DFSFESPRO 

0100 

WQ70 

WARNER CABLE CORP. 

NEDFORD 

NA 

DFSFESPRO 

0050 

WH23 

THE CHRISTIAN BROADCASTING NETWORK. 

BOSTON 

NA 

DFSFESPTR 

0100 


«»«»»««»»»«»« PHILADELPHIA PA 


WX82 

SOUTHEASTERN CABLEVISION. CO. 

ASTON TOWNSHIP 

PA 

DFSFESPRO 

0050 

WT28 

ANERICAN CABLEVISION OF PENNSYLVANI 

CHESTER 

PA 

DFSFESPRO 

0050 

W830 

CITY LINE ASSOCIATES 

PHILADELPHIA 

PA 

DFSFESPRO 

0050 

WQ72 

WPHL-TV. INC. 

PHILADELPHIA 

PA 

DFSFESPRO 

0045 

WQ58 

6L0USTER COUNTY CATV ASSOCIATES 

WOODBURY 

NJ 

DFSFESPRO 

0045 

WQ47 

TELECABLE OF SPRINGFIELD. INC. 

FLOURTOWN 

PA 

DFSFESPRO 

0045 

WP58 

COHCAST CORPORATION 

WILLOW GROVE 

PA 

DFSFESPRO 

0050 

WK51 

CPI SATELLITE TELECONKUNICATIONS. I 

UPPER DARBY 

PA 

DFSFESCRO 

0060 

WK37 

ULTRACON OF DELAWARE VALLEY. INC. 

NARPLE TOWNSHIP 

PA 

DFSFESPRO 

0043 

WJ94 

CABLE 8YSTEN8. INC. 

AUDUBON 

NJ 

DFSFESPRO 

0050 

WJ81 

BLUE RIDGE CABLE TELEVISION. INC. 

STROUDSBURG 

PA 

DFSFESPRO 

0045 

WJ48 

NAPLE SHADE CABLE CO.. INC. 

NAPLE SHADE 

NJ 

DFSFESPRO 

0050 

WE22 

RADIO BROADCASTING CONPANY 

PHILADELPHIA 

PA 

DFSFESCRO 

0050 





(continued) 
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«»»»«»««»«««« NEW YOKK NY 

UZ21 CABLEVXSION OE BAYONNE 
UU34 CABLESYSTENS OF NEW JERSEY 
US24 SUBURBAN CABLEVISION 
WLS7 TELEPROMPTER CORP. 

«»«»»««»««»«» ATLANTA OA 

UU75 STORER BROADCASTING COMPANY 
UR87 CLAYTON COUNTY CABLE COMMUNICATIONS 
UR77 UOMETCO CABLE TV OF GEORGIA* INC. 
UM4G CABLE HOLDINGS OF GEORGIA* INC. DBA 
UL91 COX CABLE COMMUNICATIONS* INC. 

UK35 DEKALB CABLEVISION CORP. 

UH2S THE CHRISTIAN BROADCASTING NETWORK* 

UG73 UNITED CABLEVISION CORP 

UD34 RCA AMERICAN COMMUNICATIONS* INC. 

«»«»««««»«««» CHICAGO IL 

WX83 CABLEVISION OF CHICAGO 
WQ40 UGN CONTINENTAL BROADCASTING CO. 
WL95 TELEPROMPTER CORP. 

«»«»»««««»»«» DALLAS TX 

KZ24 SILVER SCREEN* INC. 

KX69 SAMMONS COMMUNICATIONS* INC. 

KU98 VIDEO INTERNATIONAL PRODUCTIONS* IN 
KU37 STORER CABLE TV OF TEXAS* INC. 

KT49 SAMMONS COMMUNICATIONS* INC. 

KRS6 CABLESYSTEMS OF ADDISON* INC. 

KR52 STORER CABLE TV OF TEXAS INC. 

KQ84 THE CHRISTIAN BROADCASTING NETWORK* 


BAYONNE 

NJ 

DFSFESPRO 

0045 

BERGENFIELD 

NJ 

DFSFESPRO 

0045 

EAST ORANGE 

NJ 

DFSFESPRO 

0050 

MANHATTAN 

NY 

DFSFESPRO 

0045 


ATLANTA 

GA 

DFSFESPRO 

0050 

CLAYTON 

OA 

DFbrSSPRO 

0050 

MAPLETON 

GA 

DFSFESPRO 

0050 

SMYRNA 

GA 

DFSFESPRO 

0050 

ATLANTA 

GA 

DFSFESPRO 

0050 

DECATUR 

GA 

DFSFESPRO 

0050 

ATLANTA 

GA 

DFSFESPRO 

0100 

CHAMBLEE 

GA 

DFSFESPRO 

0500 

ATLANTA 

GA 

DFSFESCTR 

0100 


FOREST PARK 

IL 

DFSFESPRO 

0045 

CHICAGO 

IL 

DFSFESPRO 

0100 

CHICAGO 

IL 

DFSFESCRO 

0045 


DALLAS 

TX 

DFSFESPRO 

0045 

DUNCANVILLE 

TX 

DFSFESPRO 

0050 

DALLAS 

TX 

DFSFESPRO 

0050 

GARLAND 

TX 

DFSFESPRO 

0050 

UNIVERSITY PARK 

TX 

DFSFESPRO 

0043 

ADDISON 

TX 

DFSFESPRO 

0050 

GRAND PRAIRIE 

TX 

DFSFESPRO 

0050 

DALLAS 

TX 

DFSFESPRO 

0100 


(continued) 
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»*«««««»««««« KANSAS CITY HO 

KZ43 HX-iCT CWttKJNICATXONSt INC. 

KZ32 AMERICAN CABLEMISXON OP'kANSAS CITY 
KZ31 AMERICAN CAM.EVI8I0N OF KA8A8 CITYt 
KZZS AMERICAN CABLEVISION OF KAN8AS CITY 
KY55 HI-NCT COMMUNICATIONS) INC. 

KY54 HI-NET COMMUNICATIONS# INC. 

KL20 SIX STAR CASLEUI8I0N MANAOEMENT COR 
KJ25 JACKSON COUNTY CABLE SYSTEMS 
K043 CLAY-FLATTE HOME THEATRE# INC. 

KF38 TRANSPONDER CORPORATION 

««««««»*»»«»« DENVER CO 

KZ42 HI-NET COMMUNICATIONS# INC. 

KV31 JAC COMMUNICATIONS ASSOCIATES 
KU50 UNITED CABLE TELEVISION CORP. DBA M 
KT43 PUBLIC SERVICE SATELLITE CONSORTIUM 
KP77 TRINITY BROADCASTING OF DENVER# INC 
KJ99 COMMUNITY TCI OF COLORADO# INC. 

KG75 AMERICAN TELEVISION AND COMMUNICATI 

«««»««»«»»$»« SAN FRANCISCO CA 

KX30 HI-NET COMMUNICATIONS# INC. 

KX29 HI-NET COMMUNICATIONS. INC. 

KK86 ATHENA CABLEVISION CORP. 

KH91 WESTERN TV CABLE 

«$»»«««««»«»» SEATTLE UA 

KY50 HI-NET COMMUNICATIONS# INC. 

KY49 HI-NET COMMUNICATIONS# INC. 

KX73 OLYMPIC TV CABLE. INC. 

KU96 TELE-VUE SYSTEMS# INC. DBA VIACOM 
KP48 TRINITY BROADCASTING OF SEATTLE# IN 
KH41 NATION WIDE CABLEVISION# INC. 


KANSAS CITY TOUE 

KS 

DF8FESPR0 

0050 

KANSAS CITY 

NO 

OFSFESPRO 

0080 

KANSAS CITY 

MO 

OFSFE8PRO 

0050 

KANSAS CITY 

NO 

DFSFESPRO 

0080 

KANSAS CITY-NE 

MO 

DFSFESPRO 

0050 

MISSION 

KS 

DFSFESPRO 

0050 

KANSAS CITY 

KS 

OFSFESPRO 

0045 

INDEPENDENCE 

MO 

OFSFESPRO 

0040 

PARKVILLE 

MO 

OFSFESPRO 

0050 

KANSAS CITY 

KS 

OFSFESCTR 

0100 


DENVER COLORADO 

CO 

DFSFESPRO 

0044 

DENVER 

CO 

DFSFESPRO 

0050 

DENVER 

CO 

DFSFESPRO 

0041 

MORRISON 

CO 

DFSFESPTR 

0110 

DENVER 

CO 

DFSFESPRO 

0050 

LAKEWOOD 

CO 

DFSFESPRO 

0050 

ENGLEWOOD 

CO 

DFSFESPRO 

0050 


SAN FRANCISCO-UH 

CA 

DFSFESPRO 

0044 

OAKLAND-METRO A I 

CA 

DFSFESPRO 

0044 

RICHMOND 

CA 

DFSFESPRO 

0050 

S. SAN FRANCISCO 

CA 

DFSFESPRO 

0045 


SEATTLE BOEING 

F 

WA 

DFSFESPRO 

0044 

SEATTLE-TACOMA 

A 

UA 

DFSFESPRO 

0044 

PORT ORCHARD 


UA 

DFSFESPRO 

0050 

SEATTLE 


UA 

DFSFESPRO 

0050 

SEATTLE 


UA 

DFSFESPRO 

0050 

BREMERTON 


UA 

DFSFESPRO 

0050 


(continued) 
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1 



LOS ANGELES CA 


KZ4S 

HI-NET COHMUNICATIONSf INC. 

LOS AN0ELE8-AIRP 

CA 

DFSFESPRO 

OOSO 

KU38 

R F W SATELLITE SERVICES 

HOLLYWOOD 

CA 

DFSFESPTR 

0100 

KRAS 

SIX STAR CABLEVISION NANAOEMENT COR 

INGLEWOOD 

CA 

DFSFESPRO 

004S 

KR53 

KTS CORP. DBA KINNELOA TELEVISION S 

PASADENA 

CA 

DFSFESPRO 

004S 

KR30 

SAMMONS COMMUNICATIONS. INC. 

GLENDALE 

CA 

DFSFESPRO 

0043 

KG77 

THE CHRISTIAN BROADCASTING NETWORK. 

LOS ANGELES 

CA 

DFSFESPRO 

0100 

KL7A 

DOUGLAS TELEVISION COMPANY. INC. 

PAYSON 

AZ 

DFSFESPRO 

OOSO 

KL47 

KING VIDEOCABLE COMPANY 

LOS ANGELES 

CA 

DFSFESPRO 

0050 

KJ86 

SPANISH INTERNATIONAL COMMUNICATION 

HOLLYWOOD 

CA 

DFSFESPTR 

0100 

K094 

THETA CABLE OF CALIFORNIA 

SANTA MONICA 

CA 

DFSFESPRO 

0045 

KG72 

RCA AMERICAN COMMUNICATIONS. INC. 

PASADENA 

CA 

DFSFESCTR 

0100 


«««»»»«»««««« DETROIT NI 


WX85 

COX CABLE COMMUNICATIONS. INC. 

ST. CLAIR SHORES 

MI 

DFSFESPRO 

0050 

WX69 

RCA AMERICOM 

SOUTHFIELD 

MI 

DFSFESDRO 

0070 

WXS6 

THE CHRISTIAN BROADCASTING NETWORK. 

DETROIT 

MI 

DFSFESPRO 

0050 

WVGO 

CONTINENTAL CABLEVISION OF MACOMB 

ROSEVILLE 

MI 

DFSFESPRO 

0050 

WV61 

HI -NET COMMUNICATIONS. INC. 

LIVONIA 

MI 

DFSFESPRO 

OOSO 

WV60 

HI-NET COMMUNICATIONS. INC. 

WARREN 

MI 

DFSFESPRO 

OOSO 

WH30 

GREATER STAR LINK CORP. 

DETROIT 

MI 

DFSFESCTR 

0100 


««««*»»««»«»« PITTSBURGH PA 


WZ61 

WESTINGHOUSE BROADCASTING CO. 

ALLISON PARK 

PA 

DFSFESCTR 

0100 

WX84 

AMERICAN CABLEVISION OF MONROEVILLE 

MONROEVILLE 

PA 

DFSFESPRO 

0050 

WV73 

ANTHONY MANCINI 

PITTSBURGH 

PA 

DFSFESPRO 

0046 

WV70 

ANGELO VALENT CABLE TV 

OAKDALE 

PA 

DFSFESPRO 

OOSO 

W831 

CENTRE VIDEO INC. 

PENN HILLS TWP 

PA 

DFSFESPRO 

0050 

WR27 

WESTERN PENNSYLVANIA CHRISTIAN BROA 

WALL BOROUGH 

PA 

DFSFESPRO 

0060 

WG87 

BAISLEY TV t CABLE CO.. INC. 

CAN0N8BURG 

PA 

DFSFESPRO 

0045 


(continued) 
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A 




»«»«»«««««««» 8T. LOUIS ' HO 
KZ2« MIRIZON COHmiNICATIONS COKH. OP 
KY74 HI-WT CCWMUNZCATZONt* INC. 

KYS2 HI-NCT COHmiNICATIONS. INC. 

KV60 CVAN8 BR0A0CA8T1N0 CORP. 

KUf4 THE CHRISTIAN 8R0ADCA8TIN0 NETWORK. 
KJ37 CINENA 8 PRODUCT IONS INC. 

t************ 8ALTIH0RE NO 

WK31 HOWARD CABLE TELEVISION ASSOCIATES. 
WU49 CALVERT TELECOHHUNICATIONS CORP. 
WH37 BENE8EE PR<^ERTIES 

«««»«»««««««« CLEVELAND OH 

UT44 STORER BROADCASTING CO. 

HP45 COX CABLE CONHUNICATIONS. INC. 

U074 TELERAMA. INC. 

««»»«««»«»»«« HOUSTON TX 

UE79 GULF COAST-BELLAIR CABLE TELEVISIO 
KV48 WESTLAND CATV. LTD. 

KR51 VIDEO VISTA 
KR40 VIDEO VISTA 
KJ32 HULTIP0INT-TEXA8 CONPANY 

»«««««*««««»« NEWARK NJ 

WZ21 CABLEVI8I0N OF BAYONNE 
W824 SUBURBAN CABLEVISION 

«»«««*«««»««« MINNEAPOLIS MN 

KX3I HI-NET COMMUNICATIONS. INC. 

KU45 UNITED TELEVISION. INC. 

KT98 NORTHERN CABLEVISION. INC. 

KN70 NORTHERN CABLEVISION. INC. 

KK44 FIRST TELEVISION CORP. 

REPORT 20 - I 


HAZELWOOD 

MO 

DF8FESPR0 

0050 

CLAYTON 

MO 

DFSFE8PR0 

0080 

ST. LOUI8-NO. 

MO 

DF8FESPR0 

OOSO 

SHREWSBURY 

MO 

DFSFE8PR0 

0050 

ST. LOUIS 

MO 

DFSFESPRO 

0050 

ST LOUIS 

MO 

DFSFESPRO 

0045 


ELLICOTT CITY 

MD 

DFSFESPRO 

0050 

CANTONSVILLE 

MD 

DFSFESPRO 

0050 

ANNA ARUNDEL 

MD 

DFSFESPRO 

0045 


PARMA 

OH 

DFSFESPRO 

0050 

PARMA 

OH 

DFSFESPRO 

0050 

BEACHWOOD 

OH 

DFSFESPRO 

0600 


BELLAIRE 

TX 

DFSFESPRO 

0060 

HOUSTON 

TX 

DFSFESPRO 

0070 

NORTH HOUSTON 

TX 

DFSFESPRO 

0046 

WEST HOUSTON 

TX 

DFSFESPRO 

0046 

HOUSTON 

TX 

DFSFESPRO 

0045 


BAYONNE 

NJ 

DFSFESPRO 

0045 

EAST ORANGE 

NJ 

DFSFESPRO 

0050 


BLOOMINGTON CENT 

MN 

DFSFESPRO 

0046 

EDINA 

MN 

DFSFESPRO 

0050 

ST. LOUIS PARK 

MN 

DFSFESPRO 

0050 

BLOOMINGTON 

MN 

DFSFESPRO 

0050 

FRIDLEY 

MN 

DFSFESCRO 

0050 


(continued) 


(continued) 
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«««*»«««««»«« OKANOE COUNTY CA 


KZ44 

HI-NET COHHUNICATIONSf 

INC. 

LONG BEACH 

CA 

DP8FE8PR0 

0050 

NILUAUKCE 

UI 





WX98 

HI-NET C0NNUNICATI0N8> 

INC. 

HILUAUKEE-UEST 

UI 

DP8PE8PR0 

0044 

UX74 

HI-NET CONHUNICATIONSt 

INC. 

HILWAUKEE-N.E. 

UI 

DPSFESPRO 

0044 

WT41 

WITI-TW» INC. 


BROUN DEER VILLA 

UI 

DF8FESPR0 

0050 

KX28 

HI-NET COHHUNICATIONSf 

INC. 

HILUAUKEE-SO AIR 

UI 

DF8FESPR0 

0044 

««*««»»«»«««« WASHINOTON 

OC 





UU31 

HAROUEE TELEVISION NETUORKf INC. 

BETHESOA 

HD 

DFSFESPRO 

0050 

WH43 

NATIONAL CABLE SATELLITE CORP. 

BREN HAR 

VA 

DFSFE8PTR 

0100 

UH49 

ARLINGTON TELECOHHUNICATIONS CORP. 

ARLINGTON 

VA 

DFSFESPRO 

0045 

UE87 

RCA AHERICAN COHHUNICATIONSf INC. 

SUITLAND 

HD 

DFSFESCRO 

0110 

UE74 

AHERICAN SATELLITE CORPORATION 

OREENBELT 

HD 

DFSFESCTR 

0100 


REPORT 20 - (continued) 
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APPENDIX D 


PROGRAM LISTINGS 


This appendix presents the program listings for the Video Distribution 
System Cost Model. The programs are presented in four sections. The first 
three sections include the principal programs associated with each of the 
three nodules — BUILD, MODEL, and EARTH. The last section includes the 
general utility subroutines used by all three modules. 


» 
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SECTI^ 1. BUILD i«3DULE 


S«ction 1 includas listings for tha comnon area description, the main 
program for the BUILD module, and the following subroutines! 

COST 

PATH 

CITY 

RATE 



o n oti 



THie !S THE COMMON AREA ‘tNCUUDEO* IN THE SCENARIO HUILCER AND 
MODEL PR0SRAM8. THE FILE NAME IS 'COMSLK'. 

INTEOERFS NUELEMtNOELEM»NUINOXfNDIND:<»NUCITr,NDC:rY»NUFATH>NOFATH 
COMMON NUELCMfNDELEMfNUINDX>NDINDXtNUCITYrNDCITY>NUFATH>NDFATH 
INTESERkC NELEM < 2 ) t NINOX ( 2 > t NCIT Y ( 2 > » NFATH < 2 > 
equivalence (NUELEM>NELEM(1) )> (NUlNDX^NINDXa) ; 

EQUIVALENCE (NUC:TY.NCITY< I > > f <NUFATH»NFATH< X > ) 

INTE0ERF2 NUMORG • MAXUCS • MAXDC8 » MAXUF'A , MAXDFA > MAXUCT > MAXDCT t DADD 
COMMON NUMORG • MAXUCS t MAXOCS > MAXUF A i MAXDFA r MAXUCT > MAXDCT > SADD 

INTE6ERF2 MAXCS < 2 ) > MAXFA ( 2 ) > MAXCT ( 2 ) 

EQUIVALENCE < MAXUCS t MAXC8< 1 > ) > ( MAXUFA t MAXFA ( 1 > ) t < MAXUCT > MAXCT < 1 ) ) 
INTEGER*2UCITYVa0>»UClTYH<X0)»DCITYV<80>*DCITYH<80> 

COMMON UCITYVt UCITYHf DCITYVf OCITYH 

INTEGER»2 NCHAR t NST ART , CONTCD • YESSNO > UFFDUN t POS I TN 

COMMON NCHAR • N8TART i CONTCD f YESSNO t UFFDUN > F08 1 TN 

REALA4 DDDCPH . DDD INS t DDDLES • EQPLIF » PVTLES . PVTFIX » PVT INS f FVTMIL 

COMMON DDDCFH » ODD 1 NS > DDDLES > EQFLIF > PVTLES » FVTF IX • FVT INS > PVTM I L 

REALA4 DISCNT > TLKCAF t UATINS • UATLES • UATCFH » UATMAX 

COMMON DISCNT > TLKCAF > UAT INS > UATLES • UATCFH i UATMAX 

REAL«4 UCSDAT < XS » A > 4 ) > DCSDAT ( 30 1 A f 4 > f OANOAD ( 4 > 

COMMON UCSDAT* DCSDAT* GANDAD 

REALA4 UCSM IN ( XS > * DCSM I N ( 30 ) * UCTXVL ( X 0 * 5 > * DCTXVL < 80 * S ) 

COMMON UCSMIN* OCSMIN* UCTXVL* DCTXVL 

REALF4 UOXUHT < A > * DDXUHT ( A > * TALKBK ( 60 > XO > * XDAT A ( A > 

COMMON UDXUHT* DDXUHT* TALKBK* XDATA 

L061 C AL« X UCSCOD (XS * 2 ) * DCSCOD ( 30 * 2 ) * UCSN AM ( X S > 20 ) * DCSNAM (30*20) 
COMMON UCSCOD* DCSCOD* UCSNAM* DCSNAM 

LOGICAL*! UCSPTH(XS*X0>*DCSPTH<30*20>*UPTHCY<X0*X0)*DFTHCY(20.B0) 
COMMON UCSPTH* OCSPTH* UFTHCY* DFTHCY 

LOGICAL*! UCTNAM( !0* !A> *DCTNAM(80* !A> tUSTCODC !0*2> * D8TC0D( 60*2) 
COMMON UCTNAM* DCTNAM* U8TC0D* DSTCOD 

LOGICAL*! INDATACSO. ..R6NAM(P*20) *UCINDX( A*8 > *DCINDX( A*S) 
common indata* ORGNAM* UCINDX* DCINDX 
LOGICAL*! UPTHNM ( X 0 * 20 ) * DPTHNM (20*20)* AR6 ( 80 ) 

COMMON UPTHNM* DPTHNM* ARO 

LOGXCAL*X UCTORG( XO ) * DCT0R6 ( 80 ) * UCTCHN( !0 ) * DCTLVL ( 80 ) 

COMMON UCTORG* DCTORO* UCTCHN* DCTLVL 

LOGICAL*! TITLE(72> 

COMMON TITLE 


Oh' 
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blank 







s'nPTRAN IV-^'LUS W02-51C lOJldMf lX-JUN-80 P*OE 1 

BUItP.FTN /TRJ8U0CKt/Wft 

C THIS IS THE MAIN PROORAH FOR THE HODEL 
C 

c subroutine calls: readin* cost* rath* city* mte* yesno* ritout 
c 

c variables 

g 

C NAXUCS - HAXIHUH NUHBER OF UPLINK COST INDEXES 
C HAXDC8 - DOWNLINK 

C 

C NAXUPA - MAXIMUH NUMBER OF UPLINK PATHS 

C MAXDPA - downlink 

C 

C MAXUCT • MAXIMUM NUHBER OF UPLINK CITIES 

C MAXDCT - DOWNLINK 

C 

C UCINDX • THE 'FIXED' UPLINK COST INDEX 
C DCINDX - DOWNLINK 

C 

0001 INCLUDE 'SrOtCOMBLK.FTN/NOLIST' 

0039 data MAXUCS /IS/. MAXDCS /30/. MAXUPA /lO/» MAXDPA /20/ 

0040 DATA MAXUCT /10/» MAXDCT /SO/ 

0041 DATA UCINDX /'F'.S*' '.'I'. 5*' '.'X'.S*' 'I'E'.S** '.'D'.23*' '/ 

0042 DATA DCINDX /'F'.S*' '.'I'.S*' '.'X'.S*' 5*' '.'D'.23*' 'f 



c • 

C 

p 

OPEN AND READ USER-SELECTED SCENARIO FILE 


0043 

w 

CALL READIN 


0044 


WRITE (l.»> 'SCENARIO TITLE IS...' 


004 S 


WRITE <1.10) <TITLE<I>.I"1.72> 


0046 

10 

FORMAT <'0'»72Al/> 


0047 

20 

WRITE (1.*) 'DO YOU WANT TO ENTER A NEW TITLE*' 


0046 


CALL YESNO 



C 

YES NO ERR 


0049 


00 TO (30. 50. 20) YESSNO 


0050 

30 

WRITE (l.*> 'ENTER NEW SCENARIO TITLE' 


0051 


READ <1»40> <TITLE(I>.I»1.72) 


0052 

40 

FORMAT <72A1) 



W 

c 

CALL SUBROUTINES TO EDIT COST. PATH. CITY. AND RATE 

INFORMATION 

0053 

w 

50 

CALL COST 


0054 


CALL PATH 


0055 


CALL CITY 


0056 


CALL RATE 


0057 

100 

WRITE (l.«)'DO YOU HAVE ANY MORE MODIFICATIONS TO 
2ARI0T' 

MAKE TO THE 

0058 


CALL YESNO 



c 

YES NO ERR 


0059 


00 TO ( 50. 500. 100) YESSNO 



C 

C SAVE MODIFICATIONS IN A NEW SCENARIO FILE 


C 

9040 500 CALL RITOUT 

0061 STOP 

0062 END 
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FORTRAN IV-FLU8 V02-51C 
COIT.FTN /TRtiL0CK6/UR 

0001 SUtROUTZNK COST 

C 

C COST NODUCC 

C 

c thi cost noouli is uses to ado to OR nodift data for the 

C UFLZNK OR DOUNLINK COST CLCHCNT8. THE USER HAS THE CAFrSILITY 
C TO DEFZ:« AODZTIOHAU COST ELCHENTS* ADO DATA FOR THEHt AND 
C INCLUDE THEN IN ONE OR HORE FATHS. COST ELEMENT DATA CONSISTS 
C OF CAFZTALr INSTALLATION* LEASE* AND ORERATZONS AND HAINTCNANCE 
C COSTS FOR EACH COST ELEMENT ( RIECE OT EOUIRMENT (M NON-HARDUARE 
C COST unit: used in THE ANALYSIS. A SINOLE COST ELEMENT MAY CONSIST OF 
C MANY INDIVIDUAL ITEMS AS LONO AS THEY ARE ALWAYS CONSIDERED TOOCTHER. 

C THE USER ALSO HAS THE CAFAtiLlTY TO SET UF A COST ALLOCATION 
C METHODOLOOY. 

C 

C ARRAY VARIADLES 
C 

C UCSCOD 
C DCSCOD 
C 

C UCSNAM 
C DCSNAM 
C 

C t^SDAT 
C 

C DCSDAT 
C 

C UCSMIN 

C DCSMIN 

C 

C UCSFTH 

C DCSFTH 

C 

c oronam 

c 

C UCINDX 

C DCINDX 

c 

C UDXUHT 

C DDXWHT 

C 

C CSTf ID 

C 

C CSMCMO 

C 

C SCALAR UARIAiLES 

C NUELEM - NUMDER OF UFLINK COST CLEMENTS 

C NOCLCM > DOWNLINK 

C 

C NUINDX - NUMDER OF UFLINK COST INDEXES 

C NDINDX - OOWNLIMC 

C 

C UFFDWN - FLAO SET TO SFECIFY UFLINK OR DOWNLINK FROCESSINQ 
C 

C XDAT* XDATA - VARIADLES USED TO READ USER RESFONSE INTO 
C 


- 2 CHARACTER UFLINK COST CLCNCNT CODE 

« DOWNLINK 

- 20 r,MARACTER UFLINK COST ELEMENT NAME 

• DOWNLINK 

- CAFITAL* installation* LEASE* AND OMA COSTS FOR EACH UFLINK 
COST ELEMENT AND COST INDEX 

- DOWNLINK 

- MINIMUM lease CHAROC FOR EACH UFLZNK COST ELEMENT 

WNMILINK 

- MATRIX OF COST ELEMENTS FOR EACH UFLINK FATH 

- DOWNLINK 

- 20 CHAR NAMES OF MEMBER ORGANIZATIONS FOR ALLOCATING COSTS 

- 8 CHARACTER COST INDEX NAMES FOR UFLZNK 

- DOWNLINK 

- WEIOHTINO FACTORS FOR COST ALLOCATION OF UFLZNK COSTS 

- DOWNLINK 

• ARRAY OF COMMANDS F(W USE IN THE COST MODULE 

- ARRAY OF SUDCOMMANDS USED IN THE COST MODULE 
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FO0T0AH IW-AtUf V02-SIC 
COtT.FTN /TKt»t.OCKS/M 


0002 


0040 

0041 

0042 
0042 


0044 


004S 

0044 

0047 


0040 

0044 

0090 


C 

C 0UMOUTXNI CM.L0] OCTTCft# CODC»«(> &ItA40> 

C rCSfra> U4D0UN» AOCO0T. HATHOO 

C 

C THX0 ROUTINt CAI.LC0 9TI MXt.0 
C 

iMctuDC 'iroscoH0t.K.rTN/NOt.Xfr' 

c 

e L(^tA. VARIAM^0 
C 

tOOXCAC* 1 N00n.a » CSTCHO < S • 2 > * CIMCHD < O « 3 > 
ftCM.«4 ACR*I>^T2 
DATA AfR /'AfR '/ 

DATA C0TCND /'C' t 'A' t 'R' t 'D' * 't ' f 
2 'X'.'D'*'0'»'f'»'I'» 

2 'I'»'D'»'D'*'U'»'t'/ 

DATA CiHCHD /'C'#'I'*'t'.'0'f'C't'N'*'A'. R't'C'. 

2 'A'f'N'* 'C't '«'* 'O'* 'A'» 'D'* 'E'. 'X'l 

3 'A' *'•'. 'i' * 'A' *'D't'H'*'D' *'«'*'!'/ 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

C AtK AOR COtT IKWORNATION 
C 

ccncccccccccccccccccccccc 

c 

10 WtlTC (1*» >'D0 TOU HAVE COtT IRAORRATXON TO CNTIRt ' 

CACL rttM 

C TEi NO ERR 

90 T0(90f 450*10)* YCI0NO 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

C COtT INAORHATXON AROCEttXNO 

c 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

so NRXTE ( 1*« > 'DO YOU WANT TO CHANOE YOUR COST ALLOCATION?' 
CALL YEtm 

C YC0 NO ERR 

00 TO (70*47*50).YEt9N0 


C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

C COtT ALLOCATION AROCEttXNO 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 


0051 

70 

NUHORO • 9 


0052 

75 

NRXTE ( l.t > 'ENTER LItT OA NENtERt TO 5MARE COtTt - * 

TO END' 

0053 

70 

READ (1**01'') (INDATAd)* X>1*0O) 


0094 

0055 

to 

CALL 

lA ( 4R0 :*) .NE. ')' ) 00 TO tS 


0054 

0057 

oost 


XA (NUHORO. EO.O) WRITE(l*t> 'UARNINO: NO OROANXZATIONt 
XA (NUHORO. EO.O) NRXTE(1*>) 'COtT ALLOCATION XSNORCD.' 
00 TO 47 

tAECIAIED. 
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rOKTKAN IV-^Uf V02*81C 
COfT.rTN /TRlW.OCKf/«H 

cost IS ir <ICHM.CQ.O) 80 TO n 
00«0 (NUM080.C0.I0) 00 TO TS 

0001 NUM^O > NUH(^ T 1 

00*2 M 84 U«tf20 

0043 14 0R8NAN(NUM)R0«J> ■ A80(J> 

0044 80 IF ( CONTCO .CO. 0 > 80 TO 75 

0045 IF ( CONTCO .P«. 0 ) 00 TO 80 
C 

C TOO NANT NCH8C88 
C 

0044 TS MtITC (lf«) 'ONUT f 080ANIZATX0N8 CAN 8E SFECIFIEO' 
C 

ccccccccccccccccccccccccccccccccccccccccccc 

c 

C A8K F08 UFLINK 08 DOWNUINK F8CCC8SIN0 

c 

ccccccccccccccccccccccccccccccccccccccccccc 


0047 

c 

f7 

MtITC(l.«> 'M Y(H) IMNT TO EDIT UFLINK OR ’ 

. .INK COST DATAT' 

0040 


MtlTC(l.«) '(UF 08 DOWN)' 


004f 


CALw ODOWN 


0070 


IF (t^FDWN.CO.3) 00 TO 97 



c 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCr :ccc 'CC ' ' ..'CCCCCCCCCCCCC 

c 

c nooify coot indexes 
c 

ccccccccccccecccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

0071 100 MtITC ( 1>« > 'DO YOU WANT TO MDIFY COiT XNDCXCST' 

0072 CALL YC8IM 

C YC8 M3 C88 

0073 00 TO (120.280.100). YC88N0 

0074 120 NINDX(UFFDUN) > 1 

0075 122 MtITC (l.«) 'CNTC8 l«U LIST OF COt.'^ INDEX NAHCt' 

0074 12S 8CAD (1.1010) ( XNtATA( I > . !■! .80) 

0077 130 CALL 8CTTC8 

0078 IF ( A80(l) .CO. ')' ) 00 TO ISO 

007f IF (NCHA8.C0.0) 00 TO 138 

0080 IF (NINDX(1^DWN).C0.4> 90 TO 14S 

0081 NINDX(UFFDUN) ■ NINDXU^FMN) * 1 

0082 DO 133 U-1.8 

0083 IF (UFFDUN.CO.l) t«INDX(NUINDX. J) • A80(J) 

0084 IF a‘FFDWN.CO.2) DCINDX(NDINDX. J) • A80(J) 

0085 133 CONTINUE 

0084 138 IF ( CONTCD .CO. 0 ) 00 TO 122 

0087 IF ( C(MTCD .)«. 0 > 00 TO 130 

C TOO MANY XNDCXCC INFUT 
C 

0088 145 MtITC (1>«) 'OW.Y 4 COOT INDEXEf CAN DC fFCCIFICD' 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

c CNTC8 COST INDEX UCXOHTINO FACTORS 
C 
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C08T.FTN /TR:iL0CK8/UR 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

0089 ISO IF (NUHORG.EQ.O) 60 TO 260 

0090 WRITE <lf«> 'ENTER WEIGHTING FACTORS FOR COST INDEXES' 

0091 ASSIGN ISO TO 8A00 

0092 60 TO aS2flA0) fUPPDWN 

0093 152 WRITE <lil200) ( (UCINOX( I • J) > J-1 i8) » I>1 rNUINDX) 

0094 READ (lt»fERR>170 > <XOATA< I) • I>1 >NUINDX> 

0095 DO 1S5 I-lrNUINDX 

0090 1S5 UDXWHTd) • XDATA(I) 

0097 60 TO 280 

0098 100 WRITE <1>1200) < (OCINDX( I. J> > J-1 t8) f I-l iNDINDX) 

0099 READ <lf HfERR-170) (XDATA(I) >I-lfNDINDX) 

0100 DO 105 I>1>NDINDX 

0101 lOS DDXWHT(I) > XDATAII) 

0102 60 TO 280 

C 

C ERROR IN READ 
C 

0103 170 WRITE(1*«> 'ERROR IN READING NUMERICAL DATA--PLEASE RE-ENTER' 

0104 60 TO BADD 

C 

C 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C COST COMMAND PROCESSING 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

c 

0105 280 WRITE ( lr« > 'ENTER COST COMMAND' 

0106 READ (IflOlO) (INDATA(I) d>l>80) 

0107 CALL GETTER 

0108 CALL CODCHK (3f ARGf 5>CSTCM0t POSITN) 

C 

C EXI ADD DEL MOD LIS 

0109 IF ( POSITN .NE. 0 ) 60 TO (900f 400>500«705>800) r POSITN 

0110 WRITE (Ir*) 'INVALID COST COMMAND' 

0111 WRITE(1>»> 'VALID COMMANDS ARE: EXI > ADD»DEL>MOD>LIS' 

0112 60 TO 280 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

c ADD COST ELEMENT 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

0113 400 WRITE ( 1,* ) 'ENTER NEW COST ELEMENT i^ODE - 2 CHARACTERS' 

0114 ASI^IGN 400 TO BADD 

0115 CALL RDCOST 
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FORTRAN IW-FLU8 W02-S1C 
C08T.FTN /TRltLOCKS/UR 


0U6 

0117 

0118 

0119 

0120 


IF (NCHAR.e0.1.AND.AR6(l).E0.'i') 00 TO 280 
IF ( F08ITN .EQ. 0 ) GO TO 410 
40S WRITE (1>«) 'COST ELEMENT CODE ALREADY EXISTS' 
WRITE <!•«) 'USE A DIFFERENT CODE' 

00 TO DADD 


C ERROR TOO MANY COST ELEMENTS 
C 

0121 410 IF (NELEM(URFDWN) .LT. MAXCS ( UFFDWN > > GO TO 41S 

0122 WRITE <1»*>'0NLY ' »MAXCS(UPPDWN) » ' COST ELEMENTS CAN BE SPECIFIED' 

0123 SO TO 280 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

c ADD NEW ELEMENT CODE TO ARRAY 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


0124 

C 

415 

NELEMIUPPDWN) - NELEM(UPPDWN) 1 

0125 


NCSTE'- “NELEM < UPPDWN ) 

0124 


IF (NCSTEL .EG. MAXCS < UPPDWN ) ) 

2 WRITE<1»*) 'THIS IS THE LAST COST ELEMENT 

0127 

414 

DO 417 I-l»2 

0128 


IF (UPPDWN.EG.l) UCSCOD(NCSTELf I>>AR6(I) 

0129 


IF (UPPDWN. EG. 2) DCsCOD(NCSTELf I >-ARG( I ) 

0130 

417 

CONTINUE 

0131 


IF ( MODFLG .EG. 1 > 60 TO 523 


c 

ccccccccccccccccccccccc 

c 


0132 

0133 

0134 

0135 
0134 

0137 

0138 
013? 

0140 

0141 


0142 

0143 

0144 

0145 
0144 


C ADD COST ELEMENT NAME 
C 

CCCCCCCCCCCCCCCCCCCCCCC 

c 

420 WRITE ( 1>« > 'ENTER NEW COST ELEMENT NAME' 

ASSIGN 420 TO DADD 

READ <1»1010) <INDATA(I> >I-1>20) 

CALL GETTER 

IF (UPPDWN.EG.l) CALL CODCHK <20f ARGfMAXUCS>UCSNAM>POSITN) 
IF (UPPDWN.EQ.2) CALL CODCHK (20> ARGrMAXDCSrDCSNAMtPOSITN > 
IF < POSITN .EG. 0 > GO TO 430 
425 WRITE <1»») 'COST ELEMENT NAME ALREADY EXISTS' 

WRITE <!»*> 'USE A DIFFERENT NAME' 

GO TO DADD 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

C MOVE NEW NAME TO ITS ARRAY 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

430 DO 429 J-l«20 

IF <UPPDWN.EG.l > UCSNAM(NCSTELf J) » ARG<J) 

IF (UPPDWN.E0.2) DCSNAMCNCSTELi J) « ARG(J> 

429 CONTINUE 

IF ( MODFLG .EG. 1 ) GO TO 523 
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0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 


C 

c 

ccccccccccccccccccccc 

c 

C ENTER COSTS FOR EACH COST INDEX • CAFt INS> I.ES> OHA 
C 

CCCCCCCCCCCCCCCCCCCCC 

C 

C 

WRITE ( if* ) 'COST INDEXES ARE:' 

IF (URROUN.EO.l) WRITE (1>1200> ( (UCINDX< I > J) f J>1»8) >I>liNUINDX) 
IF (UPRDWN.EQ.2) WRITE (1»1200> ( (DCINDX(I>J) # J>1 >8) > I>1 >NDINOX ) 
432 WRITE ( 1>» ) 'ENTER CAPITAL COST (ENTER A VALUE FOR EACH COST IND 
2EX)' 

ASSIGN 432 TO DADD 

READ (1>»>ERR-170 > (XDATA(I) >I-1»NINDX(UPPDUN) > 

00 434 J-1>NIN0X(UPPDUN> 

IF (UPPDUN.EO.l) UCSDAT(NCSTEL»J>1> ■ XOATA(J) 

IF (UPPDUN.E0.2) 0CSDAT(NCSTEL»J>1) > XOATA(J> 

434 CONTINUE 

C 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C ENTER INSTALLATION COSTS 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

C 


0157 440 WRITE ( 1»* ) 'ENTER INSTALLATION COSTS' 

0158 ASSIGN 440 TO BADD 

0159 READ (lf»fERR«170 > (XDATAd > • I-l tNINDX(UPPDUN) ) 

0160 DO 443 J-lrNINDX(UPPDUN) 

0161 IF (UPP0WN.EQ.1> UCSDAKNCSTELr J>2> > XOATA(J) 

0162 IF (UPPOWN.EQ.2) DCSOAKNCSTELf Jf2> « XDATA(J) 

0163 443 CONTINUE 
C 

C 

CCCCCCCCCCCCCCCCCCC 

c 

C ENTER LEASE COSTS 
C 

CCCCCCCCCCCCCCCCCCC 

C 


0164 

0165 

450 

WRITE ( 1»* > 'ENTER LEASE COSTS' 
ASSIGN 450 TO BADD 


0166 

0167 


READ (lr«rERR>170) (XDATA< I ) > I»1 * NINDX(UPPOWN) ) 
DO 455 J-l.NINDX(UPPDWN) 

0168 


IF (UPPDUN.EO.l) UCSDAT(NCSTEL> J>3) 

- XDATA(J) 

0169 


IF (UPPDWN.E0.2) 0CSDAT(NCSTEL.J»3> 

> XDATA(J) 

0170 

455 

CONTINUE 



c 

c 

ccccccccccccccccc 

c 

C ENTER OHA COSTS 
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0171 

0172 

0173 

0174 

0175 
0174 
0177 


0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 
0184 


0187 

0188 

0189 

0190 

0191 


0192 

0193 

0194 

0195 
0194 


C 

CCCCCCCCCCCCCCCCC 

C 

c 

445 WRITE (1»* ) 'ENTER OPERATIONS AND MAINTENANCE COSTS' 

ASSIGN 445 TO DADD 

READ (lr«>ERR>170 ) (XDATA( I ) » I-l >N1NDX(UPPDWN) ) 

DO 470 J»ltNINOX<UPPDUN> 

IF (UPPDUN.EQ.l) UCSDAT(NCSTEL>J>4) > XDATA(J) 

IF (UPPDUN.EQ.2) DCSDATINCSTELi Jr4) ■ XOATA(J> 

470 CONTINUE 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C ENTER MINIMUM LEASE COST* IF APPLICABLE 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

471 WRITE (1>«) 'ENTER MINIMUM LEASE COST (IF APPLICABLE* OTHERWISE 0>' 
ASSIGN 471 TO BADD 

READ (lr»*ERR>170> XOATA(l) 

IF (UPPDWN.EQ.l) UCSMIN(NCSTEL) - XDATAd) 

IF (UPPDWN.EQ.2) DCSMIN<NCSTEL) > XDATAd) 

DO 475 I-lfNPATH(UPPDWN) 

IF (UPPDWN.EQ.l) UCSPTH(NCSTEL*J) - 0 
IF (UPPDWN.EQ.2) DCSPTH(NCSTEL> J) - 0 
475 CONTINUE 
C 

c 

cccccccccccccccccccccccccc 

c 

C ENTER PATH INFORMATION 

c 

CCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

c 

480 WRITE ( If* ) 'ENTER PATH NAMES TO WHICH THIS COST ELEMENT IS TO B 
2E ADDED' 

J « UPPDWN + 2 

CALL MATMOD(Jf IfNCSTEL) 

IF ( M0DFL6 .EQ. 1 ) 60 TO 523 
GO TO 280 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C MODIFY COST ELEMENT 

c 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

500 WRITE ( If* )' ENTER COST ELEMENT CODE TO BE MODIFIED' 

CALL RDCOST 

IF < POSITN ,NE. 0 > GO TO 510 

WRITE df*) 'COST ELEMENT CODE DOES NOT EXIST' 

GO TO 280 
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0197 

0198 

0199 


0200 

0201 

0202 

0203 

0204 
0208 
0204 

0207 

0208 
0209 


0210 


0211 

0212 


0213 

0214 

0215 
0214 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 
0224 


C 

CCCCCCCCCCCCCCCCCCCCCC 

c 

C ENTER NOOIFIEC CODE 
C 

ccccccccccccccccccccccc 

c 

510 WRITE < 1»* ) 'COST ELEMENT TO BE MODIFIED IS:' 

IF (UFFDUN.EO.I) write: 1> 1020) 

2 ( UCSCOD ( FOSITN » J ) f 1 f 2 > f < UCSNAM ( FOSI TN • J ) i 1 • 20 > 

IF (UPPDWN.E0.2) WRITEa»1020) 

2 (DCSCOO(POSITN> J> > J-l>2) • (DCSNAMCPOSITNr J> r J-1 >20) 

C 

520 NCSTEL-P08ITN 

523 WRITE < lf») 'ENTER COST MODIFY SUBCOMMAND' 

MODFLG • 0 

READ (IflOlO) <INDATA(I)>I>1>80) 

CALL GETTER 

CALL CODCHK (3>AR6>9>CSMCMD>P0SITN ) 

IF < POSITN .NE. 0 ) GO TO 530 
WRITE (1>«) 'INVALID SUBCOMMAND.' 

WRITE ( l>1270)((CSMCMD(I.U).J>l>3)fI>l>9) 

GO TO 523 
C 

C BRANCH TO MODIFY COST SUBCOMMAND 
C 

C CAP INS LES OMA COD NAM ADO REM EXI 

530 60 TO (540 >540 >540 >540 >420 >440 >440 >480 >280) .POSITN 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

c MODIFY CAPITAL. INSTALL. LEASE. OR 0+M COSTS 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

c 

540 60 TO (541>541)>UPPDWN 

541 WRITE (1.1210) (INDATA(J)>J-1>3)>(UCSC0D(NCSTEL>J)>J>1>2)> 

2 (UCSNAM(NCSTEL>J)>J>1>20) 

IF (NUIN0X.0E.2) WRITE( 1 > 1220 ) (PER. J-2.NUIN0X) 

WRITE (1.1230) ((UCIN0X(I>J)>J-1>8).I>1>NU1NDX) 

WRITE (1.1240) (UCSDAT(NCSTEL >J .POSITN). J-1 .NUINDX) 

WRITE (1.1280) 

545 WRITE (l.«) 'ENTER CHANGE -N. VALUE OR 0.0 TO END' 

ASSIGN 545 TO BADD 
550 READ (1.4.ERR-170) K.INPUT2 

IF (K.LE.O) WRITE(1.1240) (UCSDAT(NCSTEL. J. POSITN) . J-1 .NUINDX) 

IF (K.LE.O) GO TO 523 

IF (K.LE. NUINDX) 60 TO 540 

WRITE (1.1280) K 

GO TO 545 

540 UCSDAT(NCSTEL.K. POSITN) - INPUT2 
GO TO 545 
C 

C DOWNLINK MODIFY 
C 
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0227 SAl WRITE arl2iO> (INDATA( J> » J-1 »3> » <DC8C0DvNC8T£Lf J> f J-1 i 2) » 

2 (0C8NAH(NC8TEt.»J>f J-lt20) 

0228 IF (NOINOX. 8E.2> URITEafl220> (PER* .J-2>N' I*«OX> 

0229 WRITE (1>1230) ( (OCINOX( I f J> > J>l*a> • I>1 >N01N0X) 

0230 WRITE (1>X240) (0CS0AT(NC8TEL> J>POSITN.< > J>1 .NOINOX) 

0231 WRITE(lfl280> 

0232 548 WRITE (l.«> ‘ENTER CHANOE - N.VALUE OR 0.0 TO END' 

0233 ASSION 545 TO BAOO 

0234 570 REAO ar«.ERR>170) K.INPUT2 

0238 IF (K.LE.O) WRITE(1.1240> (OCSOAT(NCSTEU. J.POSITN) . J>1 .NDINDX) 

0234 IF (K.LE.O) 00 TO 523 

0237 IF (K.UE. NOINOX) 60 TO 580 

0238 WRITE (1.1250) K 

0239 60 TO 845 

0240 580 OCSDAT(NCSTEL.K.POSITN) • INPUT2 

0241 60 TO 545 

C 

C 

I cccccccccccccccccccccccccc 

c 

C MOOIFY COST ELEMENT CODE 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

C 

0242 420 WRITE ( l.» ) 'ENTER NEW COST ELEMENT CODE' 

0243 ASSIGN 420 TO BAOO 

0244 CALL ROCOST 

0245 IF (POSITN.NE.O) 60 TO 405 

0244 M0DFL6>1 

0247 60 TO 414 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

C MOOIFY COST ELEMENT NAME 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

0248 440 WRITE ( 1.* ) 'ENTER COST ELEMENT NAME (20 CHARACTERS MAXIMUM)' 

0249 ASSION 440 TO BAOO 

0250 READ (1.1010) ( INDATA( I ) . I-l .80) 

0251 CALL SETTER 

0252 IF (UPPDUN.EQ.l) CALL CODCHK (20. ARG.MAXUCS.UCSNAM.POSITN) 

0253 IF (UPP0WN.EQ.2) CALL CODCHK (20. ARO.MAXDCS.OCSNAM.POSITN) 

0254 IF (POSITN.NE.O) 60 TO 425 

0255 MODFLO-1 

0254 00 TO 430 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

C ADD A COST ELEMENT TO A PATH 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

0257 440 M0DFLG>1 

0258 60 TO 480 
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0239 

0260 

0261 

0262 


C 

ccccccccccccccccccccccccccccccccccc 

c 

C REMOVE A COST ELEMENT FROM A PATH 
C 

ccccccccccccccccccccccccccccccccccc 

680 WRITE ( 1»* ) 'ENTER PATH NAMES FROM WHICH THIS COST ELEMENT IS TO 
2 BE REMOVED' 
j m UPPDWN + 2 
CALL MATMOD< JfOtNCSTEL) 

GO TO 523 


C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C DELETE COMMAND 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 


0263 

705 

WRITE ( If* 

) 'ENTER COST ELEMENT CODE TO BE DELETED' 

0264 


CALL RDCOST 



0265 


IF ( ARG(l) 

.EG. 

'»') GO TO 280 

0266 


IF ( POSITN 

.£Q. 

0 ) GO TO 710 

0267 

706 

IF < UPPDWN 

.EQ. 

1) WRITEdf 1260) (UCSNAMCPOSITNf I) fl«lf 20) 

0268 


IF ( UPPDWN 

.EQ. 

2) WRITEdf 1260) <DCSNAM(POSITNf I ) f I»1 f 20) 

0269 

r 

CALL YESNO 




c 

YES 

NO 

ERR 

0270 


GO TO (708r 

200 f 

706) YESSNO 

0271 

708 

CALL DISAPR 

(UPPDWNf POSITN) 

0272 


IF <NELEM( UPPDWN) 

.GT. 0 ) GO TO 200 

0273 


WRITEClf*) ' 

**»XX*«******««****»* WARNING ********************** 

0274 


write: I f*) ' 


ALL COST ELEMENTS HAVE BEEN DELETED' 

0275 


WRITEdf *) ' 


IN THIS SEGMENT' 

0276 


WRITEdf*) ' 

THE MODEL WILL NOT WORK UNLESS AN ELEMENT IS ADDED' 

0277 


WRITEdf*) ' 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXX************************ ' 

0278 


60 TO 280 




c 

C ERROR IN COST CODE 

c 

0279 710 WRITE (lf»> 'COST ELEMENT CODE DOES NOT EXIST' 

0280 60 TO 280 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C LIST COST ELEMENT INFORMATION 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

0281 800 WRITE ( l.» ) 'ENTER LIST SPECIFICATION' 

0282 N-0 

0283 READ ( IrlOlO ) ( INDATA( I ) r I-l >80) 
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0234 


803 CALL GETTER 


0285 

IF (NCHAR.EQ.O) 

GO 

TO 804 





0286 

IF( ARG(l) .EG. 
« GO TO 820 

'A' 

.AND. ARG(2) 

.EQ. 

'L' 

.AND. ARG(3) .EQ. 

'L' ) 

0287 

IF( AROd) .EQ. 
2 GO TO 840 

'P' 

.AND. ARG(2) 

.EQ. 

'A' 

.AND. ARG(3) .EQ. 

'T' ) 

0238 

IF( ARG(l) .EQ. 
2 30 TO 860 

'C' 

.AND. ARG(2> 

o 

Ul 

'0' 

.AND. AR6(3) .ED. 

'S' ) 

0289 

IF (ARG(l).EQ.' 

t ' ) 

GO TO 280 






0290 

0291 

0292 

0293 

0294 

0295 


804 


IF (UPPDWN.EO.l) 

IF (UPPDUN.EQ.2> 

IF < POSITN .EQ. 

CALL REPRTR <1»P0SITN) 

IF (CONTCO.EQ.O) GO TO 800 
IF (CONTCD.NE.O) GO TO 803 


CALL COnCHK <2rARCfMAXUCS.UCSC0D. POSITN ) 
CALL CODCHK ( 2 fARGfMAXOCS> DCSCOD > POSITN ) 

0 ) 60 TO 310 


C 

C ERROR - INVALID RESPONSE OR CODE DOESN'T EXIST 
C 

0296 810 WRITE (If*) 'INVALID LIST OPTION' 

0297 WRITEClf*) 'LIST OPTIONS ARE: ALLf COSTf PATHf A COST ELEMENT CODEt 
2 OR I' 

0298 60 TO 800 
C 

cccccccccccccccccccccccccccccccccccccccc 

c 

C PRINT PATH MATRIX AND COST INFORMATION 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 


0299 

820 

DO 830 I - IfNELEM(UPPDWN) 

0300 


CALL REPRTR (If I) 

0301 

830 

C 

CONTINUE 


cccccccccccccccccccccccc 

c 

C PRINT PATH MATRIX ONLY 
C 

CCCCCCCCCCCCCCCCCCCCCCCC 

c 

0302 840 CALL REPRTR (2tl) 

0303 GO TO 280 
C 

cccccccccccccccccccccccccccccccccccc 

c 

c PRINT COST ELEMENT CODES AND NAMES 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

0304 860 CALL REPRTR(9fl) 

0305 60 TO 280 


C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C EXIT COMMAND 
C 
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cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

0306 900 IF (UFF0UN.EQ.2) 00 TO 9S0 

0307 WRITE (lf*> 'DO YOU WANT TO MODIFY DOWNLINK COST DATA‘S' 

0308 CALL YESNO 

C YES NO ERR 

0309 GO TO (910»950f900> » YESSNO 

0310 910 UPPDWN ■ 2 

0311 00 TO 100 

0312 950 RETURN 

C 

C 

0313 1010 FORMAT ( 80A1 ) 

0314 1020 FORMAT <1H t2Al.' -- 't20Al»/) 

0315 1200 FORMAT ( 1X>6( 8A1 > 2X) > 

0316 1210 F0RMAT(1H0»3A1» ' COSTS FOR 'f2Al.' — '»20AD 

0317 1220 FORMATCIH . 19X . 5( 7X. A4 > ) 

0318 1230 FORMATCIH f 8X>6(3X«8A1 ) ) 

0319 1240 FORMATCIH »6X*6F11.2) 

0320 1250 FORMATClHOf 'SPECIFIED SUBSCRIPT TOO large: ' » 110) 

0321 1260 FORMAT C IX f 'COST ELEMENT TO DELETE IS '.20A1.' Y OR N') 

0322 1270 FORMATClXf 'VALID COMMANDS.* '. 9C1X»3AD) 

0323 1280 FORMATClXf 'N» 12 34 

2 5 6') 

0324 END 
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0001 SUBROUTINE PATH 
C 

C PATH HODULE 

C 

C THE PATH MODULE DEFINES OR MODIFIES DATA FOR UPLINK OR DOWNLINK 
C F .7HS. PATHS ARE OPTIONS FOR TRANSMITTING THE UIDEO SIGNAL 
C THROUGH A PARTICULAR SEGMENT OF THE MODEL. THE USER CAN ADD OR 
C DELETE PATHS* CHANGE THE COST ELEMENTS ASSOCIATED WITH ANY OF THE 
C PATHS OR specify THE CITIES FOR WHICH A PATH IS UALID. 

C 

C ARRAY VARIABLES 
C 

C UPTHCY - ARRAY OF UPLINK CITIES FOR WHICH A PATH IS FEASIBLE 
C DPTHCY - DOWNLINK 

C 

C UPTHNM - 20 CHARACTER ARRAY OF UPLINK PATH NAMES 
C DPTHNM - DOWNLINK 

C 

C OPTIDX - CAPITAL* INSTALLATION* LEASE* OMA* ANNUALIZED COST FOR A 
C GIVEN COST INDEX AND PATH - UPLINK 

C DPTIDX - DOWNLINK 

C 

C SCALAR VARIABLES 
C 

C NUPATH - NUMBER OF UPLINK PATHS 
C 

C NDPATH - NUMBER OF DOWNLINK PATHS 
C 

C MAXUPA - MAXIMUM NUMBER OF UPLINK PATHS 
C 

C MAXDPA - MAXIMUM NUMBER OF DOWNLINK PATHS 
C 

c SUBROUTIN calls; getter* YESNO* CODCHK* DISAPR* 

C REPRTR* UPDOWN* MATMOD 

C 

C CALLED by: BUILD 
C 

0002 INCLUDE 'SYO:COMBLK,FTN/NOLIST ' 

C 

C LOCAL VARIABLES 
C 

0040 INTEGER«2 CURENT*ORG 

0041 LOGICAL*! PTHLST<4*2>* PTMCMD<8*5>* PTHCMD(5*3) 


0042 

DATA 

PTHCMD 

/'E' * 'A' * 'M' * 'D' * 

'L'f 



2 


'X' * 'D' * '0' * 'E' * 

'I'* 



3 


'I' * 'D' * 'D' * 'L' * 

'S'/ 


0043 

DATA 

PTHLST 

/'C' * 'C' * 'P' * ' » ' * 






'0'*'I'*'A'*' V 



0044 

DATA 

PTMCMD 

/'A'*'D'.'N'*'A'* 

'D' . 'N' * 'N' * 'E' 



2 


'D' * 'E' * 'E' * 'D' * 

'E'*'E'*'E'*'X' 

f 


3 


'D' * 'L' * 'U' * 'D' * 

'L'f 'W'*'W','I' 

f 


4 


'C'*'C'*'C'*'C'* 

'u' . 'C' * 'N' * 'T' 



5 


'0'*'0'*'0'.'I'* 

'I' * 'I' . 'A' * ' ' 

/ 


C 

C ASK IF THE USER WANTS TO ENTER PATH DATA 
C 
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0045 

0044 

0047 

0048 

0049 

0050 


0051 

0052 

0053 

0054 


0055 


0056 

0057 

0058 


3000 URITE <l.*)'DO YOU HAVE PATH INFORMATION TO ENTER‘D' 

CALL YESNO 

C YES NO ERR 

00 TO (3010>3720»3000)f YESSNO 
C 

3010 WRITE ( 1*« ) 'UPLINK OR DOWNLINK?' 

CALL UPDOWN 

IFCUPPDWN .EQ. 3> 00 TO 3010 
C 

C PATH COMMAND PROCESSINO 
C 

3015 WRITE < l*« ) 'ENTER PATH COMMAND' 

READ ( lf4910 ) (INDATA(I) f t-l>80) 

CALL CODCHK (3iINDATAtS»PTHCMD»P0SlTN) 

IF ( POSITN .EQ. 0 > 00 TO 3020 
C 

C BRANCH ON PATH COMMAND 
C 

C EXIT ADD MOD DEL LIST 

00 TO ( 3700* 3100 > 3300 • 3500 r 3600) > POSITN 
C 

C NO SUCH COMMAND 
C 

3020 WRITE (l**> 'INVALID PATH COMMAND' 

WRITE < If*) 'VALID COMMANDS: EXIT f ADDfMODf DEL f LIST ' 

00 TO 3015 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C ADD COMMAND 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c CHECK FOR TOO MANY PATHS 


c 

0059 3100 IF (NPATH(UPPDWN) .LT. MAXPA<UPPDWN) ) GO TO 3110 

0060 3105 WRITE <lf*) 'ONLY ' tMAXPA<UPPDWN) f ' PATHS CAN BE SPECIFIED' 

0061 GO TO 3015 


CCCCC ICCCCCCCCCCCCC 

c 

C REQUEST PATH NAME 
C 

ccccccccccccccccccc 

c 


0062 

3110 WRITE ( If* ) 'E 

0063 

ASSIGN 3110 TO D 

0064 

READ ( If 4910 ) 

0065 

IF (ARG(l).EQ. '« 

0066 

CALL GETTER 

0067 

IF (UPPDWN.EQ.l) 

0068 

IF (UPPDWN.EQ.2) 

0069 

IF ( POSITN .EO. 


( INDATA(I)tI«lf80) 

' ) GO TO 3015 

CALL CODCHK ( 16fARGf MAXUPAf UPTHNMf POSITN ) 
CALL CODCHK ( l6fARGfMAXDPAfDPTHNMf POSITN) 
0 ) 30 TO 3120 
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3 7: 13 


3-JUN-SO 


'AGE 3 



-'OSl 

;o83 

i093 


■ 5 i 

^-'■36 



)0'’C 


JURUICATE RATH MAHE 

ii: mRit: (If <3 'RATH nahe already exists' 

WRITE »lf«) 'ENTER A DIFFERENT NAHE ' 

GO TO SADD 

YOVE NAftE YO new array 

:eo nrath<uprdun) - nrath<upfdun; t i 
DO 3105 I»lf20 

IF ^URPDUN.EQ. 1 ) UPTHN«(NUPAr-ffI) ■ ARG<D 
IF (UPPDUN.CQ.2) DPTHNMCNDPATHfi; ■ ARG‘'I) 

1E5 CONTINUE 

ccccccccccccccccccccccccccccccccccccccccccccccccccc 


ADD WIST OF COST ELEflENTS WHICH COMPRISE THIS PATH 


ccccccccccccccccccccccccccccccccccccccccccccccccccc 

ilS: URI’E (If A ; 'ENTER WIST OF COST ELEMENT CODES FOR THIS PATH ' 

CAWW MATMCIKUPPDWNf 1 fNPATHvU'PPDUN) ) 

: REQUEST CITY NAMES "OR WHICH THIS PATH IS FEASIfLE 

::4C WRITE ( :•* : 'enter list of city names (/orG) for which this path 
*13 FEASIBLE' 

J W 4 + UPPDWN 

CALL MATMODi Jfl fNPA TH (UPPDWN) ) 

GO TO 3011 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C'CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


: “ODIFY COMMAND 

r 

iccccrccwcccicccccccccccccccccccccccccccccccccccccccccccccccccc 

iroccccccocccccccccccccccccccoccccccccccccccccccccccccccccccccc 


:~‘0 '.JRI^E ■: If* ) 'ENTER PATH NAME YOU WANT TO MODIFY' 

READ ; :.A»10 ) ( INDATAil ; f I-l f80! 

CALL SETTER 

Z' UPPDUN.EQ. 1 / CALL CCDCHK f NCHAR f ARC f MAXW'PA f U*'THNM . POSI’N ; 
ir ^OPFDWN.EQ.C) CAWW CODCHK (NCHARfARGfMAXDF'AfD) , .^'MfPOSITN : 

:r ( positn .eq. o > so to 3310 

IF'ROSI’’N .CQ. -1 .AND. UF'PDWN .EQ. 

CUPTHNMf r 3SITN) 

I" POST. N .EQ. -1 .AND. 'WPPDWN .EQ. 

ODP'HNhf rCSITfJi 
:r'-CCI"N .EQ. - 1 ; 30 TO 3315 

:f ''Ositn .eq. 3; 30 *0 3310 

3 'JRENT « ' ositn 


:■ CALL CODCHK ( ZO f ARS f MAXUP A . 
CALL CODCHK > 30 f ARC • MAXDPA f 


r S' Q * 


- '.TH DOES r.OT 3XIS' 
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i2:S4:i2 


004a 

0047 

0048 
0044 


0100 

0101 

0102 

0103 

0104 


0105 


OlOA 

0107 

0108 


0104 

0110 

0111 


0112 

0113 

0114 


3310 WRITE (lr«) 'RATH DOCS NOT EXIST' 

SO TO 3015 

3315 WRITE (1»«> 'SPCCIFIEO RATH NOT UNIQUE - ENTER NORE INFORHATION' 

SO TO 3300 
C 

ccccccccccccccccccccccccccccc 

c 

C BRANCH TO modify SUBCOMMAND 

c 

ccccccccccccccccccccccccccccc 

c 

3320 WRITE < 1>* > 'ENTER PATH MODIFY SUBCOMMAND' 

READ ( 1»4410 ) (INDATA(I)f I-l>80) 

CALL SETTER 

CALL CODCHK (5>ARGf 8> PTMCMDtPOSITN > 

IF ( POSITN .EQ. 0 ) SO TO 3335 
C 

C ADCO • DLCO • NWCO t ADCY > DLCT > NWCY , NWNM (EXIT 

SO TO (3340f33A0.3380i :0f3420>3440>34A0f301S) fPOSITN 
C 

C NO SUCH COMMAND 
C 

3335 WRITE (1>«) 'INVALID SUBCOMMAND. VALID SUBCOMMANDS ARE...' 

WRITE ( li4420X<PTMCMD<I*J).J-1.5)tI-l*8) 

60 TO 3320 
C 

cccccccccccccccccccccccccccc 

c 

c ADD A COST ELEMENT TO PATH 
C 

cccccccccccccccccccccccccccc 

c 

3340 WRITE C 1»» ) 'ENTER LIST OF COST ELEMENT CODES TO ADD TO PATH' 

CALL MATMOD<UPPDWN.lfCURENT) 

SO TO 3320 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

C DELETE A COST ELEMENT FROM PATH 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

33A0 WRITE <1»* > 'ENTER LIST OF COST ELEMENT CODES TO DELETE FROM PATH' 
CALL MATMOD(UPPDWNfOfCURENT) 

SO TO 3320 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C REPLACE COST ELEMENTS FOR PATH 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


0115 

3380 

0116 


0117 


one 

3340 


DO 3340 I»1 .NELEM<UPPDWN) 

IF (UPPDUN.EO.l) L'CSPTHf I.CURENT) 
IF <UPPDUN.E0.2) DCSPTH(I.CURENT) 
CONTINUE 


0 

0 
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fortran iv-rlus W02-51C i::z4:i2 

rath.ftn /tr:iilock8/wr 


on? 

0120 

0121 


0122 

0123 

0124 

0125 


0124 

0127 

0128 
0127 


0130 

0131 

0132 

0133 

0134 

0135 
0134 
0137 


0138 

0137 

0140 

0141 

0142 

0143 

0144 


MRITE ( 1»« ) 'ENTER NEU LIST OF COST ELEMENT COI'ES FOR f-ATM' 

CALL MATnOD<URRDUN>l>CURENT) 

80 TO 3320 
C 

cccccccccccccccccccc 

c 

C AOD A CITY TO RATH 
C 

CCCCCCCCCCCCCCCCCCCC 

c 

5400 URITE(1.«> 'ENTER LIST OF CITY NAMES </0R0> TO AM THIS RATH TO ' 

J - 4 + URRDUN 

CALL MATMOO (JtlfCLfRENT) 

GO TO 3320 
C 

CCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C DELETE A CITY FROM RATH 
C 

CCCCCCCCCCCCCCCCCCCCCCCCC 

c 

3420 HRITE(lf») 'ENTER LIST OF CITY NAMES (/ORO) TO DELETE FROM THIS RAT 
2H' 

J ■ 4 + URRDUN 

CALL MATMOD <J>OrCURENT) 

GO TO 3320 
C 

CCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C RERLACE CITIES FOR RATH 
C 

CCCCCCCCCCCCCCCCCCCCCCCCC 

c 

3440 DO 3450 J-l.NCITY(URRDUN) 

IF < URRDUN. EO. 1 ) UPTHCY < CURENT . J ) ■ 0 
IF ( URRDUN. EQ. 2 > DRTHCY< CURENT . J) ■ 0 
3450 CONTINUE 

URITE ( 1»» ) 'ENTER NEU LIST OF CITIES (/ORG> FOR THIS PATH' 

J - 4 4 URRDUN 

CALL MATMOD (J*lrCURENT> 

GO TO 3320 
C 

ccccccccccccccccccc 

c 

C RERLACe RATH NAME 
C 

CCCCCCCCCCCCCCCCCCC 

c 

c 

3440 URITE ( 1.* ) 'ENTER THE NEU NAME FOR RATH' 

ASSIGN 3460 TO SADD 

READ < 1»4V10) (INDATA(I)>Ialr80) 

CALL GETTER 

IF ( URRDUN. EQ. 1 ) CALL CODCHK (20» ARG.MAXURA.URTHNMf e-OSlTN) 

IF (URRDUN. EJ. 2) CALL CODCHK < 20. ARG > MAXDRA. DRTHNM » ROSITN ) 

IF ( ROSITN .NE. 0 ) GO TO 3115 
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FORTRAN ly-PLUS W02-51C 
PATH.FTN /TR:BL0CKS/WR 


0145 

0146 

0147 

0148 

0149 


00 3465 I - 1.20 

IF (UPPDWN.EQ.l) UPTHNM ( CURENT.I) ■ ARG CD 
IF (UF'PDWN.EQ.O) OPTHNM < CURENT.I) ■ ARG (I) 

3465 CONTINUE 

GO TO 3320 
C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c DELETE A PATH FROM SCENARIO 

c 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 
0169 


0170 

0171 

0172 

0173 

0174 


0175 


3^00 URITE < l.» ) 'ENTER PATH NAME TO DELETE FROM SCENARIO' 

READ ( 1.4910 ) (INDATA( I) .1-1.80) 

CALL GETTER 

iF <ARG(1).EQ.'>') GO TO 3015 

IF (UPPDWN.EQ.l) CALL CODCHK ( NCHAR. ARG .MAXUPA. UP THNM. POSITN ) 

IF (UPPDWN.EQ.2) CALL CODCHK(NCHAR.ARG.NAXDPA.DPTHNM.POSITN ) 
IF(POSITN .EQ. -1 .AND. UPPDWN .EQ. DCALL C0DCHK(20.ARG.MAXUPA. 
2UPTHNM.P0SITN) 

IF(POSITN .EQ. -1 .AND. UPPDWN .EQ. 2)CALL C0DCHK(20.ARG.MAXDPA. 
2DPTHNM.P0SITN) 

IF(POSITN .EQ. -1) GO TO 3515 
IF(POSITN .EQ. 0 ) GO TO 3310 
J - 2 + UPPDWN 
CALL DISAPR (J.POSITN ) 

IF <NPATH< UPPDWN) .GT. 0) GO TO 3015 

write: WARNING 

WRITEd.*)' ALL PATHS DELETED FROM THIS SECTOR' 

WRITE(l.X) 'MODEL WILL NOT WORK UNLESS A PATH IS ADDED' 

WRITE ( 1 . * ) ' XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX* ' 

GO TO 3015 

3515 WRITE (l.X) 'SPECIFIED PATH NOT UNIQUE - ENTER MORE INFORMATION' 
GO TO 3500 
C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C LIST PATH INFORMATION 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

3600 WRITE ( 1.x ) 'ENTER LIST SPECIFICATION ' 

READ ( 1. 4910 ) < INDATA<I).I»1.80) 

CALL GETTER 

CALL CODCHK (2.ARG.4.PTHLST.P0SITN ) 

IF < POSITN .EQ. 0 ) GO TO 3610 
C 

C COST CITY PATH . 

GO TO < 3620. 3630.3640.3015) POSITN 
C 

C NO SUCH COMMAND 
C 
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0176 3610 WRITE (lf*> 'INVALID LIST OPTION' 

0177 WRITE < 1»«> 'VALID COMMANDS: COST» CITYf PATH' 

0178 00 TO 3600 

C 

cccccccccccccccccccccccc 

c 

C PRINT PATH/COST MATRIX 

c 

cccccccccccccccccccccccc 

c 

0179 3620 CALL REPRTR <2»1) 

0180 GO TO 3015 

C 

CCCCCCCCCCCCCCCCCCCCCCCC 

c 

C PRINT PATH/CITY MATRIX 
C 

CCCCCCCCCCCCCCCCCCCCCCCC 

c 

0181 3630 CALL REPRTR (4tl) 

0182 60 TO 3015 
C 

ccccccccccccccccccccccccccccc 

c 

C PRINT PATH NAMES AND NUMBER 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

0183 3640 CALL REPRTR (3>1) 

0184 60 TO 3015 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

C EXIT FROM PATH MODULE 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


0185 

3700 

IF (UPPDWN.EQ.2) GO TO 3720 

0186 


WRITE (1.*) 'DO YOU WANT TO MODIFY 

0187 


CALL YE5N0 

0188 


GO TO (3710.3720.3700) f YESSNO 

0189 

3710 

UPPDWN > 2 

0190 


GO TO 3015 

0191 

3720 

RETURN 

0192 

4910 

FORMAT (80A1) 

0193 

4920 

FORMATdX. 'COMMANDS: ' .8(1X.5A1) ) 

0194 


END 


DATA?' 
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c city module 

SUBROUTINE CITY 

c 

c THE CITY MODULE IS USED TO DEFINE OR MODIFY THE CHARACTERISTICS 
C OF THE CITIES WHICH COMPRISE THE NETWORK UNDER CONSIDERATION. 

C THE USER CAN ADD» MODIFY OR DELETE CITIES FROM THE NETWORK 
C AND ASSOCIATE PATHS WITH CITIES. CITY DATA INCLUDES NAME (AND 
C MEMBER ORGANIZATION IF APPLICABLE) » STATEf LOCATION (LATITUDE/ 

C LONGITUDE OR BELL SYSTEM U AND H COORDINATES)* CHANNEL NUMBER 
C (FOR UPLINK CITIES)* HIERARCHICAL LEVEL (FOR DOWNLINK CITIES)* 

C COST INDEX VALUES* AND FEASIBLE PATHS. 


C ARRAY VARIABLES 
C 

C UCTXVL - VALUES ASSOCIATED WITH UPLINK COST INDEXES 
C DCTXVL - DOWNLINK 

C 

C UCTNAM - ARRAY OF UPLINK CITY NAMES - 16 CHARACTERS EACH 
C DCTNAM - DOWNLINK 


C USTCOD 
C 

C DSTCOD 


ARRAY OF 2 CHARACTER STATE CODES CORRESPONDING TO UPLINK 
CITIES 

DOWNLINK 


C UCITYV 
C DCITYV 


VERTICAL COORDINATES FOR UPLINK CITIES 

DOWNLINK 


C UCITYH - HORIZONTAL COORDINATES FOR UPLINK CITIES 
C DCITYH - DOWNLINK 

C 

C DCTLVL - THE HEIRARCHICAL LEVEL OF EACH DOWNLINK CITY 
C 

C UCTCHN - THE CHANNEL ASSIGNED TO EACH UPLINK CITY 
C 

C TALKBK - THE HOURS OF TALKBACK NEEDED FROM EACH DOWNLINK CITY 
C TO THE ORIGINATING CITY 

C 

C SCALAR VARIABLES 
C 

C NUCITY - NUMBER OF UPLINK CITIES 
C 

C NDCITY - NUMBER OF DOWNLINK CITIES 
C 

C LATLON - FLAG TO TELL THE PROGRAM WHEN V AND H COORDINATES ARE 
C INPUT IN TERMS OF LATITUDE AND LONCITUDE 

C 

C SUBROUTINE CALLS: GETTER* YESNO* CODCHK* DISAPR* REPRTR. 

C UPDOWN* MATMOD* CTYCHK* VANDH 

C 

c called by: build 
c 

INCLUDE 'SYO:COMBLK.FTN/NOLIST' 

C 

C LOCAL VARIABLES 
C 
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FORTRAN 10-PLUS V02-51C 
CITY.FTN /TR:BL0CKS/UR 


0040 

0041 

0042 

0043 


0044 


0045 


0046 

0047 

0048 

0049 

0050 

0051 

0052 


LOGICAL*! M0DFLG>EiYPASS>CTrCHD(6>3) rCTLSTS<8r4) tMODSUEiC lOf 4 ) r 
2 BLANK 

INTEGER»2 ORGNUMfCURENTtLAT>LON 
REAL»4 UD 

DATA CTYCMD/'A' f '0'»'M'f'D'*'L'r'E'f 

* '0' » 'V' * '0' » 'E' » 'I' » 'X' f 

* 'D'»'E'»'D'r'L'f 'S'f 'IV 

DATA CTLSTS/ 'I'.'P'f'P'r'T'»'0'»'A'»'C'»'r. 

* 'NV 'A' f 'N' » 'A' » 'R' f 'L' f 'I' F ' 'f 

« 'D' » 'T' » ' A'» 'L' » 'G' r 'L' » 'T 'f ' 'r 

* 'E'f'H'f'M'f'K'f'S'f' 'f'Y'f' '/ 

DATA MODSUB / ' V' r ' C' » ' C' » ' I ' » ' A' » 'D' f 'C ' t ' C' » 'T ' » ' E ' » 

2 'A'f'H'f'H'f'N'f'D'f'E'f'H'f'H'f'A'f'X'f 

3 'N'f 'A' F 'L' F 'D' F 'D'f 'L' f 'G' F 'G' F 'L' F 'I' F 

4 'D'f'N'f'V'f'E'f'P'f'P'f'P'f'N'f'K'f'T'/ 

DATA BLANK/' '/ 

C 

6000 WRITE ( If* )'D0 YOU HAVE CITY INFORMATION TO ENTER?' 

CALL YESNO 

C YES NO ERR 

GO TO ( 6010 F 6980 F 6000 ) YESSNO 
6010 WRITE < If* ) 'UPLINK OR DOWNLINK?' 

CALL UPDOWN 

IF ( UPPDWN .EQ. 3 > bO TO 6010 


C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C CITY PROCESSING 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 


0053 

6015 WRITE ( If* 

> 'ENTER 

CITY 

COMMAND' 

0CJ4 

READ < 1f7990) ( INDATA( I ) f I«1 f 80) 

0055 

CALL GETTER 




0056 

BYPASS ■ 0 




0057 

CALL CODCHK 

( 3fARGf 

6f 

CTYCMDf POSITN ) 

0058 

IF < POSITN 

.EG. 0 ) 

GO 

TO 6020 


c 

C BRANCH ON UPLINK CITY COMMAND 

c 

C ADD OVER MOD DEL LIST EXIT 

0059 GO TO <6100f 6050f 6300f 6700f 6800f 6900 ) POSITN 
C 

C ERROR IN RESPONSE 
C 

0060 6020 WRITE (If*) 'INVALID CITY COMMAND' 

0061 WRITE (1f«) 'VALID COMMANDS ARE: ADDfOVERfMODfDELfLISTfEXIT' 

0062 GO TO 6015 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C ADD OR OVERLAY COMMANDS 
C 
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0063 

0064 


0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 


0075 


0076 


0077 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

cccccccccccccccc 

c 

C OVERLAY CITIES 

c 

cccccccccccccccc 

c 

6050 BYPASS - 1 

IF < NUMORQ .GT. 0 ) GO TO 6100 

c 

C NO COST ALLOCATION - INVALID COMMAND IN THIS CASE 
C 

WRITE (li*) 'INVALID COMMAND UNLESS COST ALLOCATION IS USED' 
BYPASS ■ 0 
GO TO 6015 

6100 WRITE ( Ir*) 'ENTER CITY NAME </ORG)' 

ASSIGN 6100 TO BADD 

READ ( lf7990> < INDATAt I > . >1 »80> 

MODFLG « 0 
CALL GETTER 

IFCARGd) .EQ, 'f') GO TO 6015 
CALL CTYCHK < P0SITN»0R6NUM ) 

C 

C POSITN < 0 
C 

C POSITN ■ 0 AND 0R6NUM « 0 
C 
C 

C POSITN > 0 AND ORGNUM ■ 0 
C 
C 
C 

C POSITN > 0 AND ORGNUM > 0 
C 
C 

C POSITN - 0 AND ORGNUM > 0 
C 
C 

C ERROR - RETURNED NEGATIVE POSITN 
C 

IF ( POSITN .LT. 0 ) GO TO BADD 
C 

C ADD WITH NO COST ALLOCATION 
C 

IF < NUMORG .EG. 0 .AND. 

2 POSITN ,EQ. 0 .AND. 

3 ORGNUM .EO. 0 > GO TO 6103 

C 

C NOT valid for ADD OR OVERLAY 
C 
C 

IF ( POSITN .GT. 0 .AND. ORGNUM .EQ. 0 ) GO TO 6322 
C 

C OVERLAY 


- ERROR - START OVER 

- ERROR UNLESS NO COST ALLOCATION - NO CITY 

MATCH AND NO ORGANIZAION MATCH 

- CITY MATCH AND ORG MATCH 

THIS SITUATION IS ONLY VALID FOR 
MODIFY OR DELETE 

- EXISTING city AND NEW ORGANIZATION 
VALID FOR OVERLAY ONLY 

- NEW CITY AND NEW ORGANIZATION 
VALID FOR ADD ONLY 
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CIT'^.FC 

'N 

c 


•'tr:dlock3/wr 



; ;"3 


ir 

( BYPASS .EG. 

1 

.AND. 




POSITN .GT. 

0 

.AND. 



w 

ORCNUM .GT. 

0 ) 

GO TO 



ADD 




007? 

1^ 

IF 

( BYPASS .NE. 

1 

.AND. 



2 

POSITN .EG. 

0 

.AND. 



3 

ORGNUM .GT. 

0 

.AND. 



4 

NUMORG .GT. 

0 ) 

GO TO 6102 


c 





COSO 


IF 

C POSITN .EG. 

0 ) 

GO TO 6315 

OOSl 


IFCPOSITN .GT. O; 

) GO 

TO 6322 


0025 

0C2i 


0 S 7 

o-y-'o 

OC'l 

■:o ?2 

■:c9z 

:o'M 


1 3 

■)- 04 

O' 1 0 Ci 

o: 07 


olOl 

c 

olo: 


WRITE :i>*) 'INVALID RESPONSE - PLEASE RE-ENTER' 
GO TO sOlS 


IF ( NCITY(UPPDUN) 
WRITE Cl-*.' 'ONLY 
GO TO 6015 


.LT. MAXCT(UPPDUN) ) GO TO 6103 

.maxctcuppdwn; . ' cities can be specified 


ncityc’jppdun; = ncitycuppdwn) + i 

UD = 'DOWN' 

IF ( UPPDUN .EO. 1 ) UD = ' UP' 

if C NCITYCUPPDWN) .£0. MAXCTCUPPDWN)) WRITE Cl-7992) UD 
FORMAT C IX -'THIS IS THE LAST CITY YOU MAY ADD TO 'iA4.'LINK 
IF C UPPDWN .EO. 1 ) GO TO 6104 
CURENT = NCITYCUPPDWN) 

IFCNUMORG .GT. 0 ) DCTORG ( CURENT ) = GRGNUM 
GO TO 6105 


' j 

■i 1 

CU.PENT = NCITYCUPPDWN) 


7 


IF NUMORG .G". 0 ) 

UC 

rORGCCURENT- = ORGNUM 

_• t) 

6105 

DC 6106 1=1 -NCHAR 



77 


IF •: UPPDWN .EG. 

1 

) UCTNAMC CURENT- I ) = ARGCI) 

vO 


IF C UPPDWN .EG. 

7 

) DCTNAMCCURENT- I ) = ARGCI) 

C 1 

6106 

CONTINUE 



02 


IF C NCHAR .GE. 16 ) 

GO 

TO 6110 


il07 

iliO 


NCHAR = NCHAR )• 1 
DC 6107 I=NCHARfl6 

IF C UPPDWN .EG. 1 ) UCTNAMC CURENT- I ) = BLANK 
IF ■' UPPDWN .EG. : ) DCTNAMCCURENT- I ) = BL.ANK 
CONTINUE 

IF ( BYPASS .EG. 1 ) GO TO 6175 


A I 


ICCCCCCCCCCC 

STA'E CODE 

ICCC-CCCCCCCC 

Wr; 1 TE ^ 1 - * 
READ ( 


'E.NTE.R THE E CHARACTER STATE CODE .'OR iH*S C*. 
!' ■' INDATAC : ) . 1 = 1 -C) 
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0110 DO 6120 1-1)2 

0111 IF (UPF'DWN.EQ.l) USTCOD( CURENT » I ) -INDATA < I ) 

0112 IF <UPPDWN.EQ.2> DSTCODCCURENTf I >-INDATA< I ) 

0113 6120 CONTINUE 
C 

ccccccccccccccccccccccccccc 

c 

C ENTER V AND H COORDINATES 

c 

CCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

0114 6130 WRITE (1)*) 'ENTER V COORDINATE OR LATITUDE (-DDMM) FOR THIS CITY' 

0115 ASSIGN 6130 TO BAOD 

0116 READ ( l)XfERR-7000) LON 

0117 IF ( LON .LT. 0 ) GO TO 6135 

0118 IF ( LON .GT. 15000 > GO TO 7100 

0119 IF (UPPDWN.EQ.l) UCITYV< CURENT) -LON 

0120 IF (UPPDWN.EQ.2) DCITYV<CURENT)-LON 

0121 GO TO 6160 

C 

C U COORDINATE INPUT AS LATITUDE 
C 

0122 6135 LAT - LON 

0123 LATLON - 1 
C 

C ENTER H COORDINATE AS LONGITUDE 
C 

0124 6145 WRITE < 1»« ) 'ENTER THE POSITIVE LONGITUDE (.IDDMM) FOR THIS CITY' 

0125 ASSIGN 6145 TO BAOD 

0126 READ ( l>»r£RR-7000) LON 

0127 IF < LON .LT. 0 ) GO TO 7100 

0128 CALL VANDH(LATrLON) 

0129 IF < UPPDWN .EQ. 2 ) GO TO 6150 

0130 UC I TYV( CURENT) - LAT 

0131 UCITYH< CURENT) - LON 

0132 GO TO 6155 

0133 6150 DCITYV<CURENT) - LAT 

0134 DCITYH( CURENT) - LON 

0135 6155 IF ( MODFLG .EQ. 1 ) GO TO 6525 

0136 GO TO 6180 
C 

C ENTER HORIZONTAL COORDINATE 
C 

0137 6160 WRITE ( If* ) 'ENTER HORIZONTAL COORDINATE FOR THIS CITY' 

0138 ASSIGN 6160 TO BADD 

0139 READ ( lfXfERR-7000) LON 

0140 IF ( LON .GT. 15000 .OR. LON .LT. 0 ) GO TO 7100 

0141 IF (UPPDWN.EQ.l) UCITYH(CURENT)-LON 

0142 IF (UPPDWN.EQ.2) DCITYH ( CURENT ) -LON 

0143 6170 IF ( MODFLG .EQ. 1 ) GO TO 6525 

0144 GO TO 6180 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C OVERLAY COMMAND WITH EXISTING CITY 
C 


'V 
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cccccccccccccccccccccccccccccccccccc 

c 

c 

C SET STATE* V AND H» AND ORGANIZATION FROM PREVIOUS CITY DEFINITION 
C 

0145 4175 IF < UPPDUN .EG. 2 ) GO TO 4177 

0144 UCTORG(CURENT) >0R6NUM 

0147 USTC0D(CURENT*1) - USTCOD<POSITNf 1 ) 

0148 USTC0D(CURENTf2) ■ USTC0D(P0S1TN*2> 

0149 UCITYV(CURENT) ■ UCITYV(POSITN) 

0150 UCITYH(CURENT) ■ UCITYH(POSITN) 

0151 GO TO 4180 

0152 4177 DCTORG<CURENT) • ORGNUM 

0153 DSTCODCCURENT.l > • DSTCOD< POSITN* 1 > 

0154 DSTC00<CURENT*2) - DSTC0D<P0SITN*2) 

0155 DCITYV(CURENT) • DCITYV(POSITN) 

0154 DCITYH(CURENT) - OCITYHCPOSITN) 

C 

CCCCCCCCCCCCCCCCCCCCCC 

C 

C ENTER CHANNEL NUMBER 
C 

CCCCCCCCCCCCCCCCCCCCCC 

c 

0157 4180 IF < UPPDWN .EG. 2 ) GO TO 4185 

0158 WRITE ( If* ) 'ENTER CHANNEL NUMBER FOR THIS UPLINK CITY' 

0159 ASSIGN 4180 TO BAOD 

0140 READ ( If* *ERR-7000) LON 

0141 IF < LON .GT. 999 .OR. LON .LT. 0 > GO TO 7100 

0142 UCTCHN(CURENT) <• LON 
C 

0143 IF ( MOOFLG .EG. 1 ) GO TO 4525 

0144 GO TO 4195 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C ENTER HIERARCHICAL LEVEL 

c 

CCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

0145 4185 WRITE ( If* > 'ENTER HIERARCHICAL LEVEL NUMBER FOR THIS CITY' 

0144 ASSIGN 4185 TO BADD 

0147 READ < lf*f£RR»7000) LON 

0148 IF ( LON .LT. 2 .OR. LON .GT. 100) GO TO 7100 

0149 DCTLVL(CURENT) ■ LON 

0170 IF ( MODFLG .EG. 1 > GO TO 4525 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C ENTER VALUES FOR COST INDEXES 

c 

ccccccccccccccccccccccccccccccc 

c 

0171 4195 IF < UPPDWN .EG. 2 ) GO TO 4205 

0172 IF<NUINDX .EG. 1 ) GO TO 4213 

0173 DO 4200 I«2fNUINDX 
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0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0187 

0188 


0189 

0190 

0191 

0192 

0193 


6196 WRITE <l*m 'ENTER THE OALUE FOR NUMBER OF...' 

ASSIGN 6196 TO BADIl 

WRITE (1.6197) (UCINDXd. J)> Jal.6) 

6197 FORMAT (2X.8A1) 

READ (1.4.ERR-7000) UCTXVL(CURENT. I-l ) 

C 

6200 CONTINUE 

GO TO 6213 
C 

6205 IF (NDINDX .EG. 1) GO TO 6213 
DO 6212 1-2. NDINDX 

6206 WRITE (l.*> 'ENTER THE VALUE FOR NUMBER OF...' 

ASSIGN 6206 TO BADD 

WRITE (1.6197) (DCINDXd. J). J-1.8) 

READ (l.*.ERR-7000> DCTXyL(CURENT.l-l) 

6212 CONTINUE 
C 

6213 IF ( MODFLG .EQ. 1 ) GO TO 6525 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C ENTER LIST OF PATHS FEASIBLE FOR THIS CITY 

c 

cccccccccccccccccccccccccccccccccccccccccccc 

c 

6215 WRITE ( 1.* ) 'ENTER LIST OF PATH NAMES FEASIBLE FOR THIS CITY' 
J > UPPDWN -f4 

CALL MATMOD ( J.l. CURENT) 

IF ( MODFLG .EG. 1 ) GO TO 6525 
6225 IF (UPPDWN .EG. 1) GO TO 6015 
C 

CCCCCCCCCCCCCCCCCCCCCC 

C 

C ENTER TALKBACK HOURS 
C 

CCCCCCCCCCCCCCCCCCCCCC 

C 


0194 


DO 6240 I-l.NUCITY 

0195 

6235 

WRITE (1.6236) ( UCTNAM( I . J ) . J-1 . 16 ) . UCTORGd ) 

0196 

6236 

format (IX. 'ENTER TALKBACK HOURS TO: '.16A1.' 

0197 


ASSIGN 6235 TO BADD 

0198 


RE AD ( 1 . » . ERR-7000 ) TALKBK ( CURENT . I ) 

0199 

6240 

CONTINUE 

0200 


GO TO 6015 


c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C MODIFY PARAMETERS FOR CITY 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

0201 6300 WRITE ( 1.* ) 'ENTER NAME OF CITY (/ORG) TO MODIFY' 

0202 ASSIGN 6015 TO BADD 

0203 READ ( 1.7990) (INDATA ( I ) . I-l .80 ) 
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0204 


CALL GETTER 




0205 


IF ( AR6(1) .EG. 

' > GO TO 4015 



0204 


CALL CTYCHK < POSITN»ORGNUM ) 



0207 


IF ( POSITN .GT. 

0 .AND. ORGNUM .EG. 

0 > 

GO TO 4325 

0208 


IF(POSITN .GT, 0 

) GO TO 4320 



0209 

w 

IF ( POSITN ,LT. 

0 ) GO TO 4300 



0210 

4305 

IF ( ORGNUM ,GT. 

0 > GO TO 4320 




c 

C CHECK FOR EXISTANCE OF CITY/0R0ANI2ATI0N COMBINATION 
C 

C CITY DOES NOT EXIST 
C 

0211 4315 WRITE (1»») 'CITY DOES NOT EXIST' 

0212 GO TO 401S 


C 

C CITY/ORGANIZATION COMBO DOES NOT EXIST 
C 


0213 

4320 

WRITE 

<1»*) 'CITY/ORO 

COM'JINATION DOES NOT EXIST' 

0214 

C 

GO TO 

4015 


0215 

c 

4322 

WRITE 

( 1.*>'CITY AND 

0R6 COMBINATION ALREADY EXIST' 

0214 


GO TO 

4015 



0217 

0218 

0219 

0220 
0221 
0222 
0223 


0224 

0225 

0224 

0227 

0228 


C 

CCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C ENTER MODIFY SUBCOMMAND 
C 

CCCCCCCCCCCCCCCCCCCCCCCCC 

c 

c 

4325 CURENT - POSITN 

4327 WRITE < 1»» > 'ENTER CITY MODIFY SUBCOMMAND' 

MOPFLG - 0 

READ ( 1>7990) ( INDATA ( I > f I>1 > 80) 

call getter 

CALL CODCHK ( 4>AR6> lOrMODSUBtFOSITN) 

IF ( POSITN .EQ. 0 ) GO TO 4330 
C 

C BRANCH ON MODIFY SUBCOMMAND 
C 

MODFLG-1 

C UAND CHAN CHLV INDE ADDP DELP CHOP CHGN TALK EXIT 

GO TO ( 4130>4380>4390>4195>42;5f45SOr4400:4625r46;Or401S) POSITN 
C 

C NO SUCH MODIFY COMMAND 
C 

4330 WRITE (li*) 'INVALID SUBCOMMAND' 

WR ITE < 1 » * ) ' COMMANDS ARE : VAND . CHAN , CHL V » I NDE . ADDP » DELP . CHOP » TALK * E 
2XIT' 

GO TO 4327 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

C CHANGE CHANNEL ASSIGNMENT 
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C 

ccccccccccccccccccccccccccc 

c 

0229 6380 IF ( URRDUN .NE. 2 ) 60 TO 6180 

0230 WRITE <1>«)'TH1S COHMAND OAClli ONLY FOR UPLINK CITIES' 

0231 60 TO 6327 
C 

ccccccccccccc 

c 

C CHAN6E LEVEL 
C 

CCCCCCCCCCCCCC 

c 

0232 6390 IF ( UPPDUN .NE. 1 ) 60 TO 6185 

0233 WRITE <l»«)'THI8 COMMAND VALID ONLY FOR DOWNLINK CITIES' 

0234 60 TO 6327 
C 

c 

C finished with modify - RESET FLA6 AND ASK FOR ANOTHER COMMAND 
C 

0235 6525 MODFL6>0 

0236 60 TO 6327 
C 

ccccccccccccccc 

c 

C DELETE A PATH 
C 

CCCCCCCCCCCCCCC 

c 

0237 6550 WRITE < 1»« > 'ENTER LIST OF PATH NAMES TO DELETE FROM THIS CITY' 

0238 J-UPPDWN 4 4 

0239 CALL MATMOD < J.O.CURENT ) 

0240 60 TO 6327 
C 

C 

cccccccccccccccccccccccccccccccc 

c 

C CHANGE PATHS ( REPLACE PATHS ) 

C 

cccccccccccccccccccccccccccccccc 

c 

c 

0241 6600 DO 6610 I - It NUPATH 

0242 6610 UPTHCY ( !• CURENT ) - 0 

0243 WRITE <1»* > 'ENTER A NEW LIST OF PATH NAMES FOR THIS CITY' 

0244 J-UPPDWN * 4 

0245 CALL MATMOD ( Jrl»CURENT> 

0246 M0DFL6 • 1 

0247 60 TO 6327 
C 

CCCCCCCCCCCCCCCCCC 

c 

c CHANGE CITY NAME 
C 

CCCCCCCCCCCCCCCCCC 

c 
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0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 


6625 WRITE ( If*) 'ENTER NEW NAMC FOR THIS CITY' 

ASSIGN 6625 TO 8A0D 

READ (lf7990)(INt>ATA(I) -I-lfUO) 

CALL GETTER 

IF ( UPPDWN .EO. DCALL LOOFifKiNCHARf ARGf MAXOCTf UCTNAMf POSITN) 
IF(UPPDMN .EO. 2 > CALL CODCHK(NCMAR» AROf MAXDCTf DCTNAM r POSITN) 
IF ( P08ITN .GT.O) GO tq 6322 
IF ( UPPDWN .EG. 2) GO TO 6628 
DO 6627 I>lfNCHAR 

6627 UCTNAN(CURENTf I) > ARO(I) 

GO TO 6630 

6628 DO 6629 I-lrNCHAR 

6629 DCTNAN(CURENTf I) - ARO(I) 

6630 IF ( NCHAR .GE. 16 ) GO TO 6640 
NCHAR<-i'CHAR61 

DO 6640 I -NCHAR f 16 

IF (UPPDUN.EG.l) UCTNAH(CURENTf I >-8LANK 
IF (UPPDWN. EO. 2) DCTNAM(CURENTf D-8LANK 
6640 CONTINUE 

GO TO 6327 


0269 

0270 

0271 

0272 

0273 

0274 


C 

c 

cccccccccccccccccccccccccccc 

c 

C CHANGE TALK8ACK PARAMETERS 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

c 

6650 IF ( UPPDWN .EG. 1 ) GO TO 6390 

6651 WRITE ( It*) 'ENTER UPLINK CITY NAME </ORG)' 
ASSIGN 6651 TO DADD 

READ < lf7990) ( INDATAC I ) t I-l t 80) 

CALL GETTER 

IF ( AR0<1) .EO. '»' ) GO TO 6327 
C 

C UPPDWN MUST PE 1 TO CHECK UPLINK CITIES 
C 


0275 


UPPDWN - 1 

0276 


CALL CTYCHK(P08ITNfORGNUM) 

0277 


UPPDWN-2 

0278 


IF(POSITN .LT. 0 > GO TO 6651 

0279 


IF (POSITN .EO. 0 ) GO TO 6315 

0280 


IF ( POSITN .GT. 0 .AND. ORGNUM .EO 

0281 


GO TO 6320 

0282 

6652 

TALKPK(POSITNfCURENT) - 0 

0283 

6653 

WRITE ( If* ) 'ENTER TALKPACK HOURS' 

0284 


ASSIGN 6653 TO DADD 

0285 


READ < lt«f ERR- 7000) XLON 

0286 


IFCXLON .LT. 0 .OR. XLON .GT. 9999. 

0287 


TALKPK'CURENTfPOSITN ) - XLON 

0288 


GO TO 6327 


0 ) GO TO 6652 


GO TO 7100 


C 


C NO SUCH city 
C 

CCTCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCrCCCCCCCCCCCCCCCCCCIXrCC 
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ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C DELETE A CITY FROH THE SCENARIO 
C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

02St *700 WRITE ( 1>« ) 'ENTER CITY (/0R0> TO BE DELETED' 

02S7 ASSION *700 TO BADD 

0290 READ ( l*7t90) ( INDATAC I ) > rSO) 

02fl CALL OETTER 

0292 IF(AR0(1) .EQ. 'I') 00 TO AOlS 

0293 CALL CTYCHK ( ROSITN.ORONUN ) 

0294 IP ( P03ITN .LT. 0 ) 00 TO 4700 

0295 IP ( POSITN .EQ. 0 .OR. ORONUH .NE. 0 ) 00 TO 4320 

0294 IP ( POSITN .OT. 0 .AND. ORONUH .EO. 0 ) 00 TO 4710 

0297 IP(POSITN .OT. 0 ) 00 TO 4700 

0298 00 TO 4305 

0299 4710 J-UPPDUN +4 

0300 CALL 0I6APR ( JtPOSITN > 

0301 IP <UPPDWN.EQ.1.AND.NUCITY.EQ.0.0R.UPPDWN.EQ.2.AND.NDCITY.EQ.0> 

2 00 TO 4804 

O?02 GO TO 4015 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

c LIST INPORHATION PERTAINING TO CITY 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

CCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

030'i 4800 IP (UPPDWN.EQ.1.AND.NUCITY.EQ.O.OR.UPPDUN.EO.2.AND.NDCXTY.E0.O) 

2 00 TO 4804 

0304 WRITE < 1.*) 'ENTER CITY LIST SPECIFICATION' 

0305 READ ( 1.7990) ( INDATA< I ) • I>1 . 80 ) 

0304 CALL GETTER 

0307 CALL CODCHK<4.ARO»8.CTLSTSfPOSITN) 

0308 IF ( POSITN .EQ. 0) 00 TO 4805 

C 

C INDE PATH PNAN TALK ORCS ALL CITY I 

0309 00 TO ( 4810. 4830. 4840. 4850. 4840. 4870. 4845. 4015) POSITN 
C 

C NO SUCH COHHAND 
C 

0310 4805 WRITE <1.«) 'INVALID LIST OPTION' 

0311 WRITEd.t) 'VALID COHHANDS: INDE. PATH. PNAH. TALK. ORGS. ALL. CITY 
2 ' 

0312 00 TO 4800 
C 

0313 4804 WRITE (!•>) 'ALL CITIES HAVE BEEN DELETED' 

0314 00 TO 4015 
CCCCCCCCC 

C 

C INDEXES 
C 
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ccccccccc 
c 

0315 4810 CALL RERRTR ( St 1 ) 

0314 00 TO 4015 

C 

ccccccc 

c 

C RATM8 

C 

CCCCCCC 

c 


0317 

4830 

CALL REPRTR 

(4tl > 

0318 

t 

«840 

60 TO 4015 


031» 

CALL REPRTR 

(3>1) 

0320 

C 

00 TO 4015 



cccccccccc 

c 

C TALKBACK 
C 

CCCCCCCCCC 

c 

0331 4850 CALL REFRTR(4tl) 

0333 00 TO 4015 

C 

CC'CCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C ORGANIZATION NANES AND NUMBERS 

c 

cccccccccccccccccccccccccccccccc 

c 

0333 4840 CALL RERRTR ( 7tl) 

0324 60 TO 4015 

C 

cccccccccccccccccccccccccccr.ccccccccccccccccc 

c 

C PRINT city NAMESt OROANIZATIONSt AND STATES 

c 

ccccccccccccccccccccccccccccccccccccccccccccc 

c 

0335 4845 CALL REPRTR(lOtl) 

0324 60 TO 4015 

C 

cccccccccccccccccc 

c 

C ALL OF THE ABOVE 
C 

cccccccccccccccccc 

c 


0337 

4870 CALL 

REPRTR 

( 

5tl ) 

0338 

CALL 

REPRTR 

( 

4tl ) 

0327 

CALL 

REPRTR 

( 

4t 1 ) 

0330 

CALL 

REPRTR 

( 

7.1 ) 

0331 

CALL 

REPRTR 

( 

10.1 ) 

0332 

00 TO 6015 
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cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C EXIT RROM CITY 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 


0333 

6900 

IF<UPPDUN .EQ. 2 ) GO TO 6980 

0334 


URITE (l.*)'DO YOU WANT TO MODIFY DOWNLINK CITY DATA?' 

0335 


CALL YESNO 


c 

c 

YES NO ERR 

0336 


GO TO ( 6910r 6980f 6900) YESSNO 

0337 

6910 

UPPDWN • 2 

0338 


CO TO 6015 

0339 

6980 

RETURN 

0340 

7000 

WRITE (If*) 'ERROR IN NUMERICAL READ -- PLEASE RETYPE' 

0341 


GO TO BADD 

0342 

7100 

WRITE <1.#) 'SPECIFIED UALUE IS OUT OF RANGE: '»LON 

0343 


GO TO BADD 

0344 

7990 

FORMAT < 80A1) 

0345 

7991 

FORMAT ax » ' COMMANDS : ' » 1 2 < IX , 4A 1 ) > 

0346 


END 
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SUBROUTINE RATE 


C 

C 

C 

C 


C 

c 

c 

c 

c 

c 

c 

c 


RATE MODULE 

THE RATE MODULE IS FOR THE PURPOSE OF ADDING OR MODIFYING 
TELEPHONE CHARGES* INTESEt- RATES* OR GENERAL AND ADMINISTRATIVE 
COSTS. THE INTEREST AND (■ -.ND A RATES PERTAIN TO THE NETUORK(S) 
AS A WHOLE AND THUS ARE NOT DIVIDED BETWEEN UPLINK AND DOWNLINK. 

VARIABLES 

DDDCPH - DIRECT DIAL COST PER HOUR 
DDDINS - DIRECT DIAL INSTALLATION COST 
DDDLES - DIRECT DIAL LEASE COST PER MONTH 
DISCNT - DISCOUNT RATE FOR AMORTIZATION 

EQPLIF - NUMBER OF YEARS OF EQUIPMENT LIFE (FOR AMORTIZING 
CAPITAL EXPENDITURES) 

GANDAD - ARRAY OF THE FOUR CO. TS FOR GENERAL AND 

ADMINISTRATIVE COSTS FOR CAPITAL* LEASE* INSTALLATION 
AND OPERATIONS AND MAINTENANCE 

PVTLES - PRIVATE LINE MONTHLY LEASE CHARGE FOR A 
GIVEN CITY PAIR IN TALKBACK SEGMENT 

PVTFIX - PRIVATE LINE ZERO MILEAGE MONTHLY CHARGE 

PVTINS - PRIVATE LINE INSTALLATION CHARGE 

PVTMIL - PRIVATE LINE MONTHLY LEASE CHARGE PER MILE 

TLKCAP - ADDED CAPITAL EXPENDITURES REQUIRED FOR ADDING VOICE 
TALKBACK 

WATINS - WATS INSTALLATION CHARGE 

WATCPH - WATS CHARGE PER HOUR OF UTILIZATION 

WATLES - WATS LEASE CHARGE PER MONTH 

UATMAX - MAXIMUM MONTHLY CHARGE FOR WATS 

SUBROUTINE CALLS: GETTER* CODCHK* YESNO* RATECK* REPRTR 

CALLED by: build 

INCLUDE 'SYO.'COMBLK.FTN/NOLIST' 

LOCAL VARIABLES 

LOGICAL*! RATECD<8*4) 

INTEGER*2 XDAT 
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0042 


0043 

0044 


0045 

0044 

0047 

0048 

0049 

0050 


0051 


0052 

0053 

0054 


DATA RATECD/'P' »'W'*'D'.'I'»'G'.'T'»'L'»'E'» 

2 'R'»'A'f'D'.'N'»'A'»'A'r'I'r'X'» 

3 'I' » 'T' f 'D' » 'T' f ' ' r 'L' F 'S' f 'I' > 

4 'V'.'S'f' 'f' 'f' ' f 'K' f 'T' f 'T'/ 

C 

8000 WRITE ( If* )'D0 'OU HAVE RATE INFORMATION TO ENTER?' 

CALL YESNO 
C 

C YES NO ERR 

GO TO ( 8010 F 8800 F 8000 > YESSNO 
8010 WRITE < If* ) 'ENTER RATE COMMAND' 

READ ( 1f8990) ( INDATA( I ) f !■! f80> 

CALL GETTER 

CALL CODCHK (4fARGf8fRATECDfP0SITN) 

IF < POSITN ,EQ. 0 ) GO TO 8015 
C 

C BRANCH ON RATE COMMAND 
C 

C PRIV WATS DDD INT QA TALK LIST EXIT 

60 TO (8100f8200f8300f8400f8SOOf8600f8700f8800) POSITN 
C 

C INVALID COMMAND 
C 

8015 WRITE <1f*) 'INVALID RATE COMMAND' 

WRITECIf*) 'VALID commands; PRIVfWATSfDDDfINTfGAfTALKfLISTfEXIT' 
60 TO 3010 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C MODIFY PRIVATE LINE COSTS 



C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

r 

0055 

8100 

WRITE ( If* > 'PRIVATE LINE CHARGES' 



0056 


WRITE < If* )' INSTALLATION ZERO CHC/MO 

CHG/MILE/MO 

0057 


WRITE < 1f8991) PVTINSfPVTFIXfPVTMIL 



0058 


WRITE ( If* )'N» 1 2 


3' 

0059 

8105 

WRITE ( If* ) 'ENTER CHANGE : NfVALUE 

OR OfO 

' TO END' 

0060 


ASSIGN 8105 TO BAUD 



0061 


READ ( If* fERR»8115) XDATf XDATA(2> 



0062 


IF ( XDAT .EQ. 0 .AND. XDATA(2) .EQ. 

0 ) GO 

TO 8010 

0063 


CALL RATECK ( 1f3fXDAT ) 



0064 


IF (POSITN .EQ. 0 ) GO TO 8105 




L 

c 

INS FIX MIL 



0065 


60 TO ( 8120f 8140f 8160 ) XDAT 




C ERROR IN RESPONSE 



0066 

8115 

WRITE (If*) 'ERROR IN NUMERICAL READ - 

PLEASE 

RETYPE' 

0067 


GO TO BADD 



0068 

8120 

PVTINS-XDATA(2) 



0069 


GO TO 8105 



0070 

8140 

PVTFIX«XDATA(2) 



0071 


GO TO S;''5 



0072 

8160 

PVTMIL»XDATA(2) 




D-40 



FORTRAN IV-PLUS U02-51C 13:06: 14 lO-JUN-80 

RATE.FTN /TR:BL0CKS/WR 

0073 00 TO 8105 
C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C MODIFY UATS CHARGES 
C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

0074 8200 WRITE ( Ir* )'UATS CHARGES' 

007! WRITE ( If* )' INSTALLATION ZERO CHG/MO CHG/HR MAX CHG' 

0076 WRITE < If 8992) WATINSf WATLESf WATCPHr WATMAX 

0077 WRITE < If* )'N* 1 2 34' I 

0078 8205 WRITE < If* > 'ENTER CHANGE: NfVALUE OR OtO TO END' 

0079 ASSIGN 8205 TO DADD 

0080 READ ( If* fERRxEllS) XDATf XDATAC2) 

0081 IF ( XDAT .EG. 0 .AND. XDATA(2) .EQ. 0 ) GO TO 8010 

0082 CALL RATECK ( lf4f XDAT ) 

0083 IF < POSITN .EQ. 0 ) GO TO 8205 

C 

C INS LES CPH MAX 

0084 GO TOC 8220f 8240f 8260f 8280 ) XDAT 
C 

0085 8220 WATINS-XDATA(2> 

0086 GO TO 8205 

0087 8240 WATLES-XDATA<2) 

0088 GO TO 8205 

0089 8260 WATCPH«XDATA(2) 

0090 GO TO 8205 

0091 8280 WATMAX*XDATA<2) 

0092 GO TO 8205 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C MODIFY DIRECT DIAL CHARGES 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c 


0093 

8300 

WRITE ( If* ) 'DIRECT DIAL CHARGES' 




0094 


WRITE ( If* )' INSTALLATION PER MINUTE 

ZERO 

CHG/MO' 

0095 


WRITE Clf8991) DDDINSf DDDCPMf DDDLES 




0096 


WRITE ( If* )'N« 1 2 



3' 

0097 

8305 

WRITE ( If* ) 'ENTER CHANGE: NfVALUE 

OR 

o 

o 

o 

END' 

0098 


ASSIGN 8305 TO BADD 




0099 


READ ( lf*fERR«8115) XDATf XDATAC2) 




0100 


IF < XDAT .EQ. 0 .AND. XDATA<2) .EG. 

0 ) 

GO ro 

8010 

0101 


CALL RATECK < lf3fXDAT) 




0102 


IF ( POSITN .EG. 0 ) GO TO 8305 





u 

C 

DDINS DDCPM DDLES 




0103 


GO TO ( 8320 f 8340 f 8360 ) XDAT 




0104 

Q 

8320 

DDDINS-XDATAC2) 




0105 


GO TO 3305 




0106 

8340 

DDDCPM«XDATA<2> 




0107 


GO TO 3305 




0108 

8360 

DDDLES»XDATA<2) 
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0109 


60 TO 8305 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C MODIFY INTEREST INFORMATION 
C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 


0110 

8400 

WRITE ( l.X )' INTEREST RATES' 



0111 


WRITE < l.X )' EQUIPMENT LIFE (YEARS) 


DISCOUNT (%)' 

0112 


WRITE ( 1.8993) EQPLlF.DISCNT 



0113 


WRITE < l.X )'N» 1 


2' 

0114 

8405 

WRITE ( l.X )' ENTER CHANGE: N. VALUE 

OR 

0.0 TO END' 

0115 


ASSIGN 8405 TO BADD 



0116 


READ < l.X.ERR>8115) XDAT. XDATA(2) 



0117 


IF ( XDAT .EQ. 0 .AND. XDATA(2) .EQ. 

0 

) 60 TO 8010 

0118 


CALL RATECK ( 1.2. XDAT ) 



0119 

r 

IF < POSITN .EQ. 0 ) GO TO 8405 




u 

c 

EQUIP DISCNT 



0120 


60 TO ( 8420. 8430 ) XDAT 



0121 

Q 

8420 

EQPLIF«XDATA<2) 



0122 


GO TO 8405 



0123 

8430 

DISCNT-XDATA<2) 



0124 


GO TO 8405 




cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C MODIFY GENERAL AND ADMINISTRATIVE EXPENSES 
C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

8500 WRITE < It* ) 'GENERAL AND ADMINISTRATIVE EXPENSES' 


INSTALLATION 


LEASE 


OR 0.0 TO END' 


0 ) GO TO 8010 


OP AND MAIN 


0125 

012i WRITE (l.»)' CAPITAL 

2T' 

0127 WRITE < 1.8992) (GANDADC I ) . I«1 . 4 ) 

0128 WRITE (l.»)'N> 1 2 

0129 8505 WRITE ( l.X > 'ENTER CHANGE: N. VALUE 

0130 ASSIGN 8505 TO BADD 

0131 READ ( l.#.ERR»8115) XDAT. XDATA<2) 

0132 IF ( XDAT .EQ. 0 .AND. XDATA(2) .EO. 

0133 CALL RATECK ( 1.4. XDAT) 

0134 IF ( POSITN .EQ. 0 ) 60 TO BADD 
C 

0135 GANDAD(XDAT)-XDATA(2) 

0136 GO TO 8505 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

C MODIFY TALKBACK CAPITAL EXPENDITURES 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

0137 8600 WRITE ( 1.* ('TALKBACK CAPITAL COSTS' 

0138 WRITE ( 1.8994) TLKCAP 
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013? 860S URITE ( !•» > 'ENTER NEU VALUE' 

0140 ASSIGN 860S TO BADO 

0141 READ ( 1>X>ERR«8115)TLK'CAP 

0142 GO TO 8010 
C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C LIST RATE INFORMATION 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

0143 8700 CALL REPRTR < 8) 

0144 GO TO 8010 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C EXIT FROM RATE 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 


0145 

8800 

RETURN 




0146 

8990 

FORMAT 

( 

80A1) 


0147 

8991 

FORMAT 

< 

2X»3(2Xf F9.2» 3X 

) ) 

0148 

8992 

FORMAT 

< 

2Xr4( 2Xf F9.2* 3X) ) 

0149 

8993 

FORMAT 

( 

2X»2(6Xf F9.2f 5X 

) ) 

0150 

8994 

FORMAT 

( 

F9.2) 


0151 


END 
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Section 2 includes listings for the extended common area description, 
the main program for the MODEL module, and the following subroutines: 


MODUP 

MODDN 

MODTK 


PAGE BE 


ank not FTT.MED 
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THIS IS THE EXTENSION TO THE COMMON AREA 'INCLUDED' IN THE MODEL 
PROGRAMS. THE PILE NAME IS 'MODDLK'. 


INTECERP2 NUPREF(SO; 

COMMON NUPREP 

REAL*4 U0RGCS<?.5) .DORGCS(9.5) . TORGCS ' 9 . 5 ) • AORCC3 ( ^ . C ) . XORGCS < 9 . 5 ) 
COMMON UORGCS. DORCCSf TORGCS. AORGCS. XORGCS 
REALK4 UGTARR(80) 

COMMON UGTARR 

REAL44 UPTIDX(10f6i3) f DPTIDX < 20» 6 » 5 ) • UC0STX< 1 Of 4 ) f DCOSTX ( 80 f 4 ) 
COMMON UPTIDXf DPTIDXf UCOSTXf DCOSTX 

REAL44 CAPCST f INSCST f LESCST f OMACST . AMORT 
COMMON CAPCSTf INSCSTfLESCSTfOMACST, AMORT 
REAL*4 ANNLOO) •TCCST(6f5) 

COMMON ANNLf TCOST 

REAL94 C:l0<5f2)f PERf BLANK. UP0RDN(2f2> 

COMMON CILOf per. BLANKf UPORDN 

LOGICAL*! RUNSECU) fREPMUM<20) fREPLST(20f2) 

COMMON RUNSECf REPNUMf REPLST 



D-47 


FORTRAN IV-PUUS V02-51C lOJOSMl 30-JUN-80 PAGE 1 

MODEL. FTN /TR:BL0CKS/WR 


0001 

0039 

0056 


C 

C 

C 

C 

C 

C 


THIS IS THE MAIN PROGRAM FOR THE COST SECTION OF THE MODEL 

SUBROUTINE CALLS! READIN* GETTER. REPRTR, CODCHK. 

MODUP. MODDN. MODTK 

INCLUDE ' DK2 ! COMBLK . FTN/NOL 1ST' 

INCLUDE 'DK2SM0DBLK. FTN/NOL 1ST' 

LOGICAL*! LBLANK 

DATA INITIALIZATIONS 


BWATS /'WATS'/. BDDD /'DDD '/ 


0057 

DATA 

LBLANK /' '/ 

0058 

DATA 

BPVT /'PVT '/. 

0059 

DATA 

CILO /'CAPI' . ' 


2 

'TAL '.'i 

0060 

DATA 

PER /'PER '/. : 

0061 

DATA 

UPORDN /' UP' 

0062 

DATA 

UCINDX /'F'.S* 

0063 

DATA 

DCINDX /'F' .5* 

0064 

DATA 

REPLST /'I'. '2 



9*' '.'0 

0065 

DATA 

REPNUM /20»0/ 

0066 

DATA 

MAXUCS.MAXDCS.I 

0067 

DATA 

UORGCS /45*0./ 

0068 

DATA 

W6TARR /80*0./ 

0069 

DATA 

UPTIDX /300*0. 

0070 

data 

UCOSTX /40*0./ 


BLANK /' 

. 'DOWN' . 'LINK 
' '.'I '.5*' ' 
' '.'I'. 5*' ' 


'A 

/ 

. 'LINK'/ 
'X' .5*' 
'X' .5#' 


' . 'AL2D'/ 


'3' I 

'I'l 


'4' . '5' > 
'2' . '3' I 


' 6 ' ( 
'4' I 


'7' I 
'5' I 


'.'E'.5*' '.'D'.23*' 
' . 'E' .5*' ' . D' .23*' 
'8'.'9'.10*'1'.'A'. 
'6' r '7' . '8' . '9' . 'L'/ 


'/ 

'/ 


READ IN SCENARIO 


0071 


0072 

0072 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 


CALL READIN 
C 

C NOW DETERMINE WHICH REPORTS ARE REQUESTED 
C 

160 WRITEd.*) 'INDICATE THE REPORT NUMBERS YOU WISH TO SEE' 

WRITE (1.*) 'ENTER THE NUMBERS (1-19) SEPARATED BY COMMAS AND' 
WRITE (1.*) 'TERMINATE WITH A OR SIMPLY ENTER ‘ALL* FOR ALL RE 
2P0RTS' 

READ(l.lOOO) (INDATA(I).I»1.80) 

170 CALL GETTER 

IF (ARGd ) .EO. ' ; ' ) GO TO 220 
IF (NCHAR.EQ.l) ARG(2) ■ LBLANK 
CALL CODCHK (2.ARG.20.REPLST.P0SITN) 

IF (POSITN.LE.O) go TO 190 
IF (P0SITN.EQ.20) GO TO 200 


0082 REPNUM(POSITN) ■ 1 

0083 180 IF (CONTCD.EO.O) GO TO 160 

0084 IF (CONTCD.EO, 1 ) GO TO 170 


C 

C ERROR— INVALID REPORT SPECIFIED 

C 


0085 190 WRITE d.lOOl) ARG(1).ARG(2) 

0086 GO TO 180 
C 


C ALL REPORTS DESIRED 
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FORTRAN rV-PLUS V02-S1C 


MODEL 

• FTN 

/tr:blocks/wr 

0087 

C 

200 

DO 210 I«l>19 

0088 

210 

REPNUM(I) - 1 

0089 

L 

c 

c 

220 

CALCULATE INTEREST RATE AMORTIZATION FACTOR 
NYEARS - IFIX(EQPLIF) 

0090 

0091 

0092 

230 

AMORT ■ 0. 

DO 230 I -1, NYEARS 

AMORT ■ (AMORT + l.)/(l. + DISCNT/100.) 


C 

C INTEREST RATEr EQUIP. LIFEf AND MISC. ASSUMPTIONS REPORT 
C 

0093 IF (REPNUM(l) ,EQ.O) 00 TO 240 

0094 WRITE <3fl002) (TITLEd ) . !■! »72) 

0095 CALL REPRTR (8.1) 

C 

C UPLINK SEOMENT 
C 

0096 240 UPPDUN - 1 


0097 

n 

CALL MODUP 


L 

c 

n 

DOWNLINK SEGMENT 

0098 

L 

UPPDWN « 2 

0099 

c 

CALL MODDN 


c 

VOICE TALKBACK AND SUMMARY 


c 


0100 


CALL MODTK 

0101 


STOP 


L 

c 

r 

FORMAT STATEMENTS 

0102 

u 

1000 

FORMAT (80A1) 

0103 

1001 

FORMAT (IHO. 'INVALID REPORT NUMBER: '.2Alf/) 

0104 

1002 

FORMAT (1H1.72A1) 

0105 


END 


4 
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FACE 1 


FORTRAN IV-PUUS W02-51C 
MODUP.FTN /TR: BLOCKS/UR 


000 X 


0002 

0040 


0057 

0058 
005P 
0060 


SUBROUTINE NOOUP 
C 

C THIS SUBROUTINE DOES THE CALCULATIONS FOR THE UPLINK SEGMENT 
C OF THE MODEL. 

C 

C SUBROUTINE CALLS! REPRTRr UANDH 
C 

INCLUDE 'DK2!C0MBLK.FTN/N0LIST' 

INCLUDE ' DK2 ! MODBLK . FTN/NOL 1ST ' 

C 

C COST ELEMENT DATA 
C 

IF (REPNUM<2) .NE.l) GO TO IIO 
WRITE <3tl001) <TITLE<I).I«1»72) 

WRITE <3f 1002) UPORDN( 1 t 1 > .UPORDN( X ,2) 

DO XOO I«XfNUCLEM 


0061 

0062 


0063 

0064 

0065 


0066 

0067 

0068 


006'"> 

0070 

0071 


0072 

0073 

0074 


0075 

0076 

0077 

0078 

0079 

0080 
0081 


CALL REPRTR <1»1) 

100 CONTINUE ' 

C 

C PRINT COST/PATH MATRIX 
C 

110 IF <REPNUM<3> .EQ. 0) GO TO 112 
WRITE (3fl001) (TITLE(I). 1-1.72) 

CALL REPRTP (2.1) 

C 

C PATH/CITY MATRIX 
C 

112 IF <REPNUM(4> .EQ. 0) GO TO 114 
WRITE (3.1001) (TITLE(I) .1-1.72) 

CALL REPRTR (4.1) 

C 

C CITY COST INDEXES 
C 

114 IF (REPNUM(5) .EQ. 0) GO TO 116 
WRITE (3.1001) (TITLE(l) .1-1.72) 

CALL REPRTR (5.1) 

C 

C MATRIX OF TALKBACK REQUIREMENTS 
C 

116 IF (REPNUM(6) .EQ. 0) GO TO 118 
WRITE (3.100!) (TITLE(I). 1-1.72) 

CALL REPRTR (6.1) 

C 

C CALCULATE COSTS OF UPLINK PATHS. BY COST INDEX 
C 

lie DO 130 J-l.NUPATH 
DO 130 I-l.NUELEM 
DO 130 M-l.NUINDX 
DO 120 L-1.4 
N » UCSPTH(I.J) 

120 UPTIDX( J.M.L) * UPTIDX( J.M.L) + FLOAT ( N ) 4UCSDAT ( I . M . L ) 

130 UPTIDX( J.M.5) - UPTIDX( J.M.5) + FLOAT (N)» 

2 ( (UCSDAK I .M. 1 )+UCSDAT< I .M.2) ) /AMORT+UCSDAT < T , M . 3 ) +UCSDAT ( I .M.4) ) 
C 

C COST SENSITIUITY REPORT 

C 
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MODUP.FTN /TR:BL0CKS/WR 

0082 IF (REPNUM<7>.NE.1> GO TO 160 

0083 WRITE <3»1001) (TITLEd) » !■! »72> 

0084 WRITE (3>1020) UPORDN( 1 > 1 > >UPORON( 1 »2) 

0085 DO 150 I-1>NUPATH 

0086 WRITE (3fl021) If (UPTHNN( I f J) f J*1 t 20) 

0087 IF <NUINDX.GT.l > WRITE (3fl022) <PERf J-2r NUINDX) 

0088 WRITE (3fl023> ( (UCINOXC Jf K ) f K«1 f 8) f J-l f NUINDX) 

0089 DO 140 J-lfS 

0090 140 WRITE (3fl024) CILO( Jf 1 ) f CILO( Jf 2) f (UPTIDX( I f Kf J ) i K-1 f NUINOX ) 

0091 150 CONTINUE 

C 

C IF COST ALLOCATION SPECIFIEDf REMOVE MULTIPLE CITY LISTINGS 
C 

0092 160 

0093 

0094 

0095 

0096 

0097 170 

0098 

0099 180 

0100 
0101 
0102 

0103 190 

0104 

0105 200 

0106 

0107 210 

oloe 

0109 220 

0110 
0111 

0112 230 

0113 240 
C 

C CALCULATE COSTS FOR UPLINK PATHS DY CITY, AND CHOOSE THE PEST 
C ONE. then add 'CHOSEN' PATH COSTS TO TOTALS FOR SUMMARY TABLE 
C 


0114 

250 

IF <REPNUM<8) .EO.O) GO TO 255 

0115 


WRITE (3,1001) (TITLEd),>l,72) 

0116 


WRITE (3,1034) UPORDN( 1 , 1 ) ,UPORDN( 1 , 2) 

0117 

255 

DO 350 K-1,NUCITY 

one 


INDIC - 0 

0119 


IF (UCITYV(K) .EQ.-l ) GO TO 350 

0120 


IF (UCITYV(K) .LT.O) CALL VANDH(UCITYV(K ) ,UCITYH(K ) ) 

0121 


BOTTOM-1. E38 

0122 


DO 310 J«1,NUPATH 

0123 

C 

IF (UPTHCY( J,K) .EO.O) GO TO 310 
OMIT LEASE CALCULATIONS, BECAUSE OF THE MINIMUM VARIABLE 

0124 


CAPCST - UPTIDX(J,1,1) 

0125 


INSCST - UPTIDX( J,l,2) 

0126 


OMACST ■ UPTIDX( J,l,4) 

0127 


IF (NUINDX.EO.l) GO TO 270 

0128 


DO 260 M-2,NUINDX 

0129 


CAPCST - CAPCST + UPTIDX ( J , M , 1 ) 6UCTXVL ( K ,M- 1 ) 


IF (NUMORG.EQ.O) 60 TO 250 
DO 240 K-lfNUCITY 
WGTARR(K) - UDXWHTd) 

IF (NUINDX.EO.l) GO TO 180 
DO 170 L«2fNUINDX 

WGTARR(K) ■ WOTARR(K) ♦ UCTXVL(K,L-1 )*UDXWHT(L) 
IF (WOTARR(K) .LE.0.0) WGTARR(K) - 1.0 
IF (K.EQ.l) GO TO 240 
DO 230 I-lfK-1 
DO 190 J-1,16 

IF <UCTNAM<K, J).NE.UCTNAMdf J) ) GO TO 230 
CONTINUE 

DO 200 J«1,NUINDX-1 

UCTXVLdfJ) - UCTXVLdfJ) + UCTXVL(KfJ) 

DO 210 J-lfNDCITY 

TALKBK(Jfl) - TALKPK(Jfl) + TALKBK<J,K) 

DO 220 J-lfNUPATH 

UPTHCYdfJ) - UPTHCYdfJ) .OR. UPTHCY(KfJ) 
UCITYV<K) ■ -1 
GO TO 240 
CONTINUE 
CONTINUE 
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FORTRAN IW-PLU8 V02-51C 
HOOUP.FTN /TR: BLOCKS/UR 


0130 

0131 


0132 

0133 

0134 

0135 

0136 


INSC8T - INSCST f UPTXDX< JfH.2)*UCTXWL(K.M-l ) 
260 OHACST ■ OMACST ♦ UPTIDX( J*M» 4 >«UCTXWL (K*M-1 ) 
C 

C CALCULATE LEASE COSTS 
C 

270 LESCST - 0. 

DO 290 I-lfNUELEM 
TEMP-0. 

IP <UCSPTH<If J).EO.O) 00 TO 290 
TEMP ■ TEMP + UCSDATdf 1.3) 


0137 IP (NUINDX.EO.l) 00 TO 290 

0138 DO 280 M-2.NUINDX 

0139 280 TEMP ■ TEMP T UCSDAT( I .M.3)*UCTXVL<K»M-1 ) 


0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 


0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 


0173 

0174 

0175 


IP (TEMP.LT.UCSMINd) ) TEMP-OCSMINd ) 

LESCST - LESCST +TEMP 
290 CONTINUE 

ANNL(J) ■ (CAPCST+INSCST) /AMORT + LESCST + OMACST 
C COMPARE ANNUALIZED COST WITH BEST PREVIOUS PATH 
IP (REPNUM(8) .NE. 1 ) GO TO 300 

IP (INDIC.EQ.O) WRITE <3.1035) ( UCTNAMCK .M ) .M-1 . 16 ) . J. 

2 CAPCST . INSCST . LESCST . OMACST . ANNL < J ) 

IP (INDIC.EQ.l) WRITE (3.1036) J. 

2 CAPCST . INSCST , LE SCST . OMACST . ANNL ( J ) 

300 INDIC • 1 

IP < ANNL ( J) .GE. BOTTOM) GO TO 310 
NUPREP(K) • J 
BOTTOM • ANNL(J) 

310 CONTINUE 

N-NUPREP(K) 

DO 340 L-1.4 

UCOSTX(K.L) • UPTIDX(N. 1 .L ) 

IP (NUINDX.EO.l) GO TO 330 
DO 320 M-2.NUINDX 

UCOSTX(K.L) ■ UCOSTX(K.L) + UPT IDX < P. M . L ) PUCTXVL ( K .M- 1 ) 

320 CONTINUE 

330 IP (L.NE.3) TCOSTd.L) « TCOSTd.L) + UCOSTX(K.L) 

340 CONTINUE 

UCOSTX(K.3)-BOTTOM-UCOSTX<K.4)-(UCOSTX(K.l )+UC0STX(K.2) ) /AMORT 
TC0ST(1.3) ■ TC0ST<1.3) + UC0STX<K.3) 

TC0ST(1.5) - TC0ST(1.5) ♦ BOTTOM 
350 CONTINUE 
C 

C no COST ALLOCATION CALCULATIONS 
C 

IP (NUMORO.EO.O) 60 TO 410 
DO 400 I-l.NUCITY 
TOTWGT-0. 

DO 380 J-l.NUCITY 
DO 360 K-1.16 

IF(UCTNAMd.K) .NE.UCTNAM( J.K) ) GO TO 380 
360 CONTINUE 

IP (USTCOIK 1 . 1 ) .NE.USTCOD< J. 1 ) .OR. 

2 USTCOIK 1.2) .NE.USTCOD(J. 2) ) GO TO 380 
TOTWGT • TOTWGT + WGTARR(J) 

IP d.EO.J) GO TO 380 
DO 370 L-1.4 
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0176 370 

0177 360 

0178 

0179 

0180 390 

0181 400 
C 

C 

C 

0182 410 

0183 

0184 

0185 

0186 

0187 

0188 
0189 
wl90 

0191 

0192 420 

0193 

0194 

C 

C 

C 

0195 1001 

0196 1002 

0197 1010 

0198 1011 

0199 1012 

0200 1013 

0201 1014 

0202 1015 

•)203 1020 

0204 1021 

0205 1022 

0206 1023 

0207 1024 

0208 1034 


0209 1035 

0210 1036 

0211 


UC08TX(J*U • UCOSTX(I.L) 

CONTINUE 
N - UCTORGd: 

DO 390 L>1>4 

UOROCS(NfU ■ UORGCS(N.L> + UCOSTX ( I )*U0TARR( I )/TOTWGT 
CONTINUE 

UPLINK SUMMARY REPORT 

IF (REPNUM<9).NE.l) RETURN 
WRITE <3.1001) <TITLE<1).I«1»72) 

WRITE(3.1010> UPORDN(l.l). UP0RDN<1.2) 

DO 420 I-l.NUClTY 
IF (UClTVWai.LT.O) GO TO 420 
WRITE (3.1011) 

YEARLY • ( UCOSTX ( 1 . 1 ) +UCOSTX < 1 . 2 > ) /AMORT+UCOSTX < 1 . 3 ) +UCOSTX (1.4) 
WRITE (3. 1012) (UCTNAMCI - J) . J«1 . 16 ).< UCOSTX <I . J ), J-1 . 4 ). YEARLY 
IF (NUI'JDX.QT. 1 ) WRITE <3.1013) < (UCINDX(K. J) . J-1 .8) .K»2.NUINDX^ 
IF (NUlNDX.GT.l ) WRITE <3.1014) (UCTXVL < I . J) . J-1 .NUINDX-1 ) 
CONTINUE 

WR1TE<3.1015) <UP0RDK<1.K).K-1.2). < TCOST < 1 .K ) .K-1 .5 ) 

RETURN 

FORMAT STATEMENTS 
FORMAT <1H1,72A1> 

FORMAT < IHO. 17X.2A4. ' COST ELEMENT DATA'.//) 

FORMAT < 1H0.26X.2A4, ' COSTS BY CITY') 

FORMAT < IHO. 3X. 'CITY' . 15X. ' CAPITAL '. 4X . ' INSTALL' .6X. 'LEASE' .6X. 

2 'OIMJA' .2X. 'ANNUALIZED' ) 

FORMAT < IHO. 16A1 .2X.5F1 1 .0) 

FORMAT < IHO. 18X.5<3Xr8Al ) ) 
format (1H0.18X.5F11.0/) 

FORMAT( IHO. //3X.2A4. ' TOTAL ' .2X.5FJ 1 .0) 

FORMAT< IHO. 1 IX. 'SENSITIVITY OF PATH COSTS TO NETWORK PARAMETERS- 
2 2A4.//) 

FORMAT < IHO. 'PATH '.12.' — '.20AD 
FORMAT < 1H0.20X.5<7X.A4 ) ) 

FORMAT <1H .11X.6<3X.8A1) ) 

FORMATUH .3X.2A4.6F11 , 0) 

F0RMAT<1H0.25X, 'COST OF EACH PATH— '. 2A4 .///. 4X .' CITY ' . 

2 lOX. 'PATH' .5X. 'CAPITAL' .4X. ' INSTALL ' . 6X .' LEASE '. 6X . '0*MJA 

3 2X. 'ANNUALIZED' ./) 

FORMAT < IHO. 16A1 . I4.F13.0.3F11.0.F12.0' 

FORMATdH .16X, 1 4 . F 1 3 . 0 . 3F 1 1 . 0 . F 1 2 . 0 ) 

END 


D-53 


lO: 16! 10 


30-JUN-80 


PAGE 1 


FORTRAN iy-P‘ US V02-51C 
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0001 


0002 

0040 


0057 

0058 

0059 

0060 
0061 
0062 


0063 

0064 

0065 


0066 

0067 

0068 


0069 

0070 

0071 


0072 

0073 

0074 

0075 

0076 

0077 

0078 


0079 

0080 
0081 
0082 
0083 


SUBROUTINE rfODDN 
C 

C THIS SUBROUTINE PERFORMS THE CALCULATIONS FOR THE DOUNLINK 
C SEGMENT OF THE MODEL 
C 

C SUBROUTINE CALLS; REPRTR» UANDH 
C 

INCLUDE ' DK2 : CCMBLK . FTN/NOLIST ' 

INCLUDE ' DK2 .* MODBLK . FTN/ NOL 1ST' 

C 

C COST ELEMENT DATA 
C 

IF (REPNUM(IO) ,NE. 1) GO A 200 
WRITE <3.1001) (TITLE(I).I=1.72> 

WRITE (3.1002) UP0RDN<2.1).UP0RDN(2.2> 

DO 100 I=1.NDELEM 
CALL REPRTR (l.I) 

100 CONTINUE 
C 

C PRINT COST/PATH MATRIX 
C 

200 IF (REPNUMdl) .EQ. 0) GO TO 225 
WRITE (3.1001) (TITLE(I).I=1.72) 

CALL REPRTR(2.1) 

C 

C PATH/CITY MATRIX 
C 

225 IF (REPNUM(12) .EQ. 0) GO TO 250 
WRITE (3.1001) (TITLE(I) .1=1.72) 

CALL REPRTR(4.1) 

C 

C CITY COST INDEXES 
C 

250 IF (REPNUM(13) .EQ. 0) GO TO 275 
WRITE (3.1001) (TITLE(I) .1=1.72) 

CALL REFRTR(5.1) 

C 

C CALCULATE COSTS OF DOWNLINK rAFHb. BY COST INDEX 
C 

275 DO 400 J=1.NDPATH 
DO 400 I=1.NDELEM 
DO 400 M=1.NDINDX 
DO 300 L=1.4 
N = DCSPTH(I.J) 

300 DPTIDX(J.M.L) = DPTIDX ( J . M . L ) + FLOAT ( N ) *DCSDAT ( I . M . L ) 

400 DPTIDX( J.M.5) = DPTI DX ( J . M . 5 ) + FL.OAT<N)* 

2 ( (DCSDAT( I .M.1)+DCSDAT( T .M.2) ) /AMORT f DCSDAT ( I . M . 3 ) +DCSDAT ( I . M . 4 ) ) 
C 

C COST SENSITIVITY REPORT 
C 

IF (REPNUM(14) .NE. 1 ) GO TO 700 
WRITE (3.1001) (TITLE(I).I=1.72) 

WRITE (3.1020) UP0RDN(2. 1 J .UP0Ri:iN(2.2' 

DO 600 I=1.NDPATH 

WRITE (3.1021) T . (DPTHNM( I . J' . J=i .20) 


0084 


IF (NDINDX.GT.l) WRITE (3.1022' ( PER . J=2 . NDI NDX ' 
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0085 WRITE (3fl023) ( (DCINUXC J»K) tK=1 .8) f J=1 .NUINDX) 


0086 DO 500 J»1f5 

0087 500 WRITE (3f1024) CIL0(Jf1)f CIL0(Jf2)f ( DPTIDX ( I f N f J ) f K^ l f ND INDX ) 

0088 600 CONTINUE 

C 

C IF COST ALLOCATION SPECIFIEDf REMOVE MULTIPLE CITY LISTINGS 
C 

0089 700 IF (NUMORG.EQ.O) GO TO 1600 

0090 DO 1500 K=1fNDCITY 

0091 WGTARR(K) = DDXWHT(l) 


0092 IF (NDINDX.EQ.l) GO TO 900 

0093 DO 800 L=2fNDINDX 

0094 800 WGTARR(K) = WGTARR(K) + DCTXVL ( K f L- 1 ) #DDXWHT ^ 


0095 

0096 900 

0097 

0098 

0099 


0100 

1000 

0101 

0102 

0103 

1100 

0104 

1200 

0105 

0106 

1300 

0107 


0108 

0109 

1400 

0110 

1500 

C 

C 

C 

C 

0111 

1600 

0112 

0113 

0114 

0115 

0116 
0117 

1650 

0118 

0119 

0120 

c 

0121 

0122 

0123 

0124 

0125 


0126 


0127 

0128 

1700 

C 

C 

C 

0129 

1800 


IF (WGTARR(K) .LE.0.0) WGTARRCK) = 1.0 
IF (K.EO.l) GO TO 1500 
DO 1400 I=1 fK-1 
DO 1000 J“1f16 

IF <DCTNAM(Kf J) .NE.DCTNAM<If J) ) GO TO 1400 
CONTINUE 

DO 1100 J=1fNDINDX-1 

DCTXVL(IfJ) = DCTXVL(IfJ) + DCTXVL(KfJ) 

DO 1200 J=1fNUCITY 

TALKBK(IfJ) = TALKBK(IfJ) + TALKBK(KfJ) 

DO 1300 J=1fNDPATH 

DPTHCY(IfJ) = DPTHCYa.J) .OR. DPTHCY<KfJ> 

DCITYVIK) = -1 
GO TO 1500 
CONTINUE 
CONTINUE 

CALCULATE COSTS FOR DOWNLINK PATHS BY CITYf AND CHOOSE THE BEST 
ONE. THEN ADD 'CHOSEN' PATH COSTS TO TOTALS FOR SUMMARY TABLE 

IF (REPNUM( 15) .EQ.O) GO TO 1650 
WRITE (3f1001) (TITLE(I)fI=1f72) 

WRITE (3f1034)UP0RDN(2f1) fUP0RDN(2f2) 

DO 2500 K=1fNDCITY 
INDIC = 0 

IF (DCITYV(K) .EQ.-l ) GO TO 2500 

IF (DCITYV(K) .LT.O) CALL VANDH < DCITYV ( K ) f DCI TYH ( K ) ) 

B0TT0M=1 .E38 
DO 2100 J=1fNDPATH 
IF (DPTHCYC JfK) .EO.O) GO TO 2100 
OMIT LEASE CALCULATIONS f BECAUSE OF THE MINIMUM VARIABLE 
CAPCST = DPTIDXf J. 1 F 1 ■ 

INSCST = DPTIDXC Jf 1 f2) 

OMACST = DPTIDX( Jf 1 f4) 

IF (NDINDX.EQ.l) GO TO 1800 
DO 1700 M=2 fNDINDX 

CAPCST = CAPCST + DPTI DX ( J fM f 1 ) *DCTX VL ( K f M- 1 ' 

INSCST = INSCST + DPT I DX { J f M f 2 ) YDCTXVL ( K f M- 1 ) 

OMACST = OMACST + DPTI DX ( J f M f 4 ) *DCTX VL ( K • M- 1 ) 

CALCULATE LEASE COSTS 

LESCST = 0. 
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0130 DO 1900 I=lfNDELEM 

0131 TEMP=0. 

0132 IF (DCSPTHdf J) .EQ.O) GO TO 1900 

0133 TENr' = TEMP + DCSDAT d » 1 . 3 > 

0134 IF (NDINDX.EQ. 1 ) GO TO 190C 

0135 DO 1850 M-2»NDINDX 

0136 1850 TEMP ■ TEMP + DCSDAT < X » M r 3 > tDGTXOL ( K » M- 1 ) 

0137 IF (TEMP.LT.DCSMINd > > TEMP = DCSMINd ) 

0138 LESCST » LESCST + TEMP 

0139 1900 CONTINUE 

0140 ANNL(J) = (CAPCST+Ii'iSCST) /AMORT + LESCST + OMACST 
C COMPARE ANNUALIZED COST WITH BEST PREVIOUS PATH 

0141 IF <REPNUM(15) .NE. 1 ) GO TO 2000 

0142 IF (INDIC.EQ.O) WRITE (3d035) f DCTNAM < K , M ) , M=1 , 16 ) . J . 

2 CAPCSTdNSCST^LESCSTrOMACSTf ANNLf J) 

0143 IF dNDIC.EQ.l) WRITE (3,1036) J, 

2 CAPCST. INSCST, LESCST, OMACST, ANNLfJ) 

0144 2000 INDIC = 1 

0145 IF (ANNL( J) .GE. BOTTOM) GO TO 2100 

0146 NUPREF(K) = J 

0147 BOTTOM = ANNL(J) 

0148 2100 CONTINUE 

0149 N*NUPREF(K) 

0150 DO 2400 L=l,4 

0151 DCOSTXCK.L) = DPTIDX(N,1.L) 

0152 IF (NDINDX.EQ. 1 ) GO TO 2300 

0153 DO 2200 M=2,NDINDX 

0154 DCOSTX(K,L) = DCOSTX(K,U + DPTI DX ( N , M , L ) *DCTXVL ( K , M-1 ) 

0155 2200 CONTINUE 

0156 2300 IF (L.NE.3) TC0ST(2,L) = TC0ST(2,L) + DCOSTX(K,L) 

0157 2400 CONTINUE 

0158 DCOSTX(K,3)=BOTTOM-DCOSTX(K,4)-(DCOSTX(K, 1 )+DC0STX(K,2) .'/AMORT 

0159 TC0ST(2,3) = TC0ST(2,3) + DC0STX(K,3) 

0160 TC0ST(2,5) = TC0ST(2,5) + BOTTOM 

0161 2500 CONTINUE 

C 

C DO COST ALLOCATION CALCULATIONS 
C 

0162 IF (NUMORG.EQ.O) GO TO 3100 < 

0163 DO 3000 I=1,NDCITY 

0164 TOTWGT=0. ' 

0165 DO 2800 J=1,NDCITY 

0166 DO 2600 K=l,16 

0167 IF(DCTNAM( I ,K) ,NE. DCTNAMv J.K ) ) GO TO 2300 

0166 2600 CONTINUE 

0169 TF (DSTCODd,l).NE.DSTCnD(J.l' .OR. 

2 DSTCOrK I • 2) . NF . DSTCOIK J, 2' ) GO TO 2800 
01"0 TOTUGT = TOTUGT 1 WGTARR dn 

01~1 IF d.EQ.J) GO TO 2800 

0172 DO 2700 L-1,4 

0173 2700 DCOSTX(J,L' = DCOSTXd.l.) 

0174 2800 CONTINUE 

0175 N = ncrORG'.M) 

01 '76 DO 2'500 L--1.4 

0177 2900 DORGCS(N,L> = nnpncs N . l ' + DCOSTX ( I . L ' YUGTORR < I ' 'TOTUGT 

0178 3000 CONTINUE 

'•C 
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C 


C 


C 

0179 

0180 
0181 
0182 
0183 

3100 

0184 

0185 


0186 

0187 

0188 

0189 

0190 

3200 

0191 

C 


c 


c 

0192 

1001 

0193 

1002 

0194 

1010 

0195 

1011 

0196 

1012 

0197 

1013 

0198 

1014 

0199 

1015 

0200 

1020 

0201 

1021 

0202 

1022 

0203 

1023 

0204 

1024 

0205 

1034 


0206 

1035 

0207 

1036 

0208 



/tr;blocks/ur 


DOWNLINK SUMMARY REPORT 

IF <REPNUM(16).NE.I) RETURN 
WRITE (3-1001) (TITLE<I)fI=l-72) 

WRITE(3*1010) iJP0RIiN(2f 1 ' - UP0RDN(2-2) 

DO 3200 I»1»NDCITY 
IF (DCITYU(I) .LT.O) GO TO 3200 
WRITE (3fl011) 

YEARLY ■ < DCOSTX (I - 1 ) +DCOSTX ( I - 2 ) ) /AMORT+DCOSTX ( I » 3 ) +DCOSTX ( I » 4 ) 
WRITE(3-1012> (DCTNAM( I- J) . J*1 - 16 ) - ( DCOSTX ( I - J > » J=1 - 4 ) , YEARL Y 
IF (NDINDX.GT. 1 ) WRITE (3-1013) ( < DCINDX ( K - J ) - J=1 - 8 ) -K=2 - NDINDX ) 
IF (NDINDX. GT.l) WRITE (3-1014) ( DCTXVL ( I - J ) - J*1 - NDINDX-1 ) 
CONTINUE 

WRITE(3»1015) (UP0RDN(2-K)»K»l-2) - ( TCOST ( 2 » K ) - K=1 - 5 ) 

RETURN 


FORMAT STATEMENTS 
FORMAT (1H1-72A1) 

FORMAT (IHO- 17X-2A4- ' COST ELEMENT DATA'-//) 

FORMAT ( IHO- 26X - 2A4 - ' COSTS DY PITY') 

FORMAT (1H0-3X- 'CITY' -15X- ' CAPITAL '- 4X » ' INSTALL '- 6X -' LEASE '- 6X - 
2 'OJMJA' -2X- 'ANNUALIZED' ) 

F0RMAT(1H0-16A1 -2X-5F11.0) 

FORMAT (1H0-18X-5(3X-8AD) 

FORMAT (1H0-18X-5F11.0/) 

FORMAT ( IHO- //’X - 2A4 - ' TOTAL '- 2X - 5F1 1 . 0 ) 

F0RMAT(1H0-11X- 'SENSITIVITY OF PATH COSTS TO NETWORK PARAMETERS— 
2 2A4-//) 

FORMAT (IHO-'PATH '-I2-' — '-20AD 
FORMAT (1H0-20X-5(7X-A4) ) 

FORMAT (IH - 11X-6(3X-8A1 ) ) 

FORMATdH -3X-2A4,6F11 .0) 

F0RMAT(1H0-25X- 'COST OF EACH PATH— '- 2A4 -///- 4X -' CITY ' - 

2 lOX- 'PATH' -5X- 'CAPITAL' -4X- ' INSTALL' -6X. 'LEASE' -6X- 'OSMIA' - 

3 2X- 'ANNUALIZED' -/) 

FORMAT ( IHO- 16A1 - 14 - F13 . 0 - 3F1 1 . 0 -F12 . 0 ) 

FORMATdH -16X- 14 - F13 . 0 - 3F1 1 . 0 . F12 . 0 ) 

END 
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SUBROUTINE MODTK 

THIS SUBROUTINE PERFORMS THE CALCULATION FOR THE TALKBACK SEGMENT 
OF THE MODEL. IT ALSO PRODUCES THE GRAND SUMMARY REPORT. 

INCLUDE 'DN2:C0MBLK.FTN/N0LIST' 

INCLUDE ' DK2 : MODBLK . FTN/NOL I ST ' 

REAL#4 BPVTrBWATSfBDDD 

DATA BPU’’ /'PVT '/. BWATS /'WATS'/. BDDD /'DDD '/ 

PREPARE AND PRINT TABLE FOR VOICE TALKBACK SYSTEM COSTS 

DO 1700 J*1.NUCITY 
IF (UCITYV(J) .EQ.-l) GO TO 1700 

CHECK FOR NO TALKBACK REQUIREMENT AND SET V AND H COORDINATES 

T = 0. 

DO 100 I-lfNDCITY 
T = T + TALKBK(I.J) 

CONTINUE 

IF (T.EO.0.0) GO TO 1700 

REPEAT FOR EACH COMBINATION OF UPLINK AND DOWNLINK CITY 


0066 


IF (REPNUM(17) .EQ.O) GO TO 150 

0067 


WRITE (3.1001) (TITLE(K) .K*l .72) 

0068 


WRITE (3.1015) (UCTNAM( J.N) .N=l . 16) 

0069 

150 

DO 1600 I=1.NDCITY 

0070 


IF (DCITYV(I) .EQ.-l) GO TO 1600 

0071 


TOTWGT = 0. 

0072 


IF (TALKBK(I.J) .GT.0.AND.DCTLVL( I) .EQ.3) 

0073 


IF (TALKBK(I.J))1600. 1600. 500 

0074 

200 

DIST=1 .E38 

0075 


DO 400 K*1.NDCITY 

0076 


IF (K.EQ.I) GO TO 400 

0077 


IF (DCTLVL(K)-2) 400.300.400 

0078 

300 

X = DCITYV(K) - DCITYV(I) 

0079 


Y = DCITYH(K) - DCITYH(I) 

0080 


DIST»MIN1(DIST.SQRT( (X**2+Y*#2)/10. ) ) 

0081 

400 

CONTINUE 

0082 


GO TO 600 

0083 

500 

X = UCITYV(J) - DCITYV(I) 

0084 


Y = UCITYH(J) - DCITYH(I) 

0085 


DIST = SORT ( (X»*2+Y*#2)/10. ) 

0086 

600 

HOURS = TALKBKCI.J) 

0087 


WLEASE=MIN1 ( WATLES+WATCPH*HOURS . WATMAX ) 

0088 


PLEASE=PVTFIX+DIST»PVTMIL 

0089 


DDLEAS=DDDCPH*HOURS 

0090 


TCOST (3.1) -TCOST (3.1) +TLKCAP 

0091 


IF ( WLEASE-PLEASE ) 700 . 800 . 800 

0092 

700 

IF(WLEASE.GT.riDLEAS) GO TO 900 

0093 


TALK=BWATS 

0094 


INSCST = WATINS 

0095 


LESCST = WLEASE*12. 

0096 


GOTO 1000 
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0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 
0107 


0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 


0127 

0128 
0129 


0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 
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800 IF<PLEASE.GT.DDLEAS) GO TO 900 


TALK-BPVT 
INSCST - POTINS 
LESCST * PLEASE412. 

CO TO 1000 
900 TALK«BDDD 

INSCST ■ DDDINS 
LESCST * DDLEAS»12. 

1000 TC0ST(3»2) ■ TC0ST(3f2) + INSCST 
TC0ST(3f3> = TC0ST(3.3> + LESCST 

TC0ST(3*5) ■ TC0ST(3»5) + TLKCAP/AMORT + INSCST/AHORT f LESCST 


C 

C DO COST ALLOCATION CALCULATIONS f IF APPLICABLE 


IF (NUMORG.EO.O) GO TO 1500 
DO 1200 L=lfNDCITY 


1100 


DO 1100 K*1.16 

IF(DCTNAM<IfK).NE.DCTNAM<LfK)) GO TO 1200 
CONTINUE 

IF ( DSTCOD ( I » 1) . NE . DSTCOD < L . 1 ) . OR . 

DSTCOD(I»2).NE.DSTCOD(L»2)) GO TO 1200 
T0TW6T = TOTWGT + UGTARR(L) 


1200 CONTINUE 

DO 1400 L»I»NDCITY 
DO 1300 K=lfl6 

IF (DCTNAMdrK) .NE.DCTNAM(L»K) ) GO TO 1400 
1300 CONTINUE 

IF (DSTC0D(I>1) ,NE.DSTC0D(L»1) .OR. 

2 DSTCOD(I»2).NE.DSTCOD(L.2)) GO TO 1400 
N * DCTORG(L) 

TORGCS(N.l) * T0R6CS<N.l) + TLKCAP*WGTARR ( L ) /TOTWGT 
T0RGCS(N.2> =• T0RGCS(N.2) + INSCST4WGTARR ( L ) /TOTWGT 
T0RGCS<N»3) « T0RGCS(N.3) + LESCST*WGTARR < L ) /TOTWGT 
T0RGCS(Nr4> = 0. 

1400 CONTINUE 
C 

C TALKBACK REPORT 
C 

1500 IF <REPNUH( 17) .EO. 1 ) WRI TE ( 3 . 1016 ) ( DCTNAM ( I > K ) > K= 1 . 16 ) . DCTLVL ( I ) . 

2 HOURS » DIST, WATINS fWLEASEf PUTINS » PLEASE »DDDINS.DDLEAS» TALK 

1600 CONTINUE 
1700 CONTINUE 
C 

C ALLOCATE ADMINISTRATIUE COSTS 
C 

IF (NUHORG.EQ.O) GO TO 3300 
T0TWGT=O. 

DO 1800 I=1fNDCITY 
TOTWGT=TOTUGT + WGTARR ( I ) 


1800 CONTINUE 

DO 2000 I=1»NDCITY 
N=DCTORG(I) 

DO 1900 L=l»4 

1900 AORGCS(N.L) = AORGCSfN.L) + GANDAD ( L) *WGTARF.' < I) /TOTWGT 
2000 CONTINUE 


C 
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C COST ALLOCATION TABLE 

r> 

0140 

w 

2100 

IF (REPNUM( 18) .NE. 1 .OR.NUMORG.EQ.O) GO TO 3300 

0141 


WRITE <3»1001) (TITLE<I)»I«1.72) 

0142 


WRITE (3»1025> 

0143 


WRITE (3fl026) 

0144 


DO 2200 1-1.25 

0145 

2200 

ANNLd) - 0. 

0146 


DO 2400 I-l.NUMORG 

0147 


UORGCSd.5) » (UORGCSd.l) + UORGCS <1.2 )) /AMORT + UORGCSd.3) 
2 + UORGCS (I. 4) 

0148 


DO 2300 J-1.4 

0149 

2300 

ANNL(J) - ANNL(J) + UORGCSd.J) 

0150 


ANNL(5) - ANNL(5) + UORGCSd.5) 

0151 


WRITE (3.1027) I . ( ORGNAMd . J ) . J-1 .20 ) . ( UORGCSd . J ) . J*1 . 5 ) 

0152 

2400 

CONTINUE 

0153 


WRITE (3.1028) (ANNL( J) . J-1 . 5) 

0154 


WRITE (3.1029) 

0155 


DO 2600 I-l.NUMORG 

0156 


DORGCSd.5) - (DORGCSd.l)+DORGCSd.2))/AMORT + DORGCSd.3) 
2 + DORGCSd.4) 

0157 


DO 2500 J-6.9 

0158 

2500 

ANNL(J) - ANNL(J) + I'ORGCS (I . J-5 ) 

0159 


ANNL(IO) - ANNL(IO) + DORGCSd.5) 

0160 


WRITE (3.1027) I . ( ORGNAMd . J ) . J»1 . 20 i . < DORGCS (I . J ) . J-1 .5 ) 

0161 

2600 

CONTINUE 

0162 


WRITE (3.1028) (ANNL( J) . J-6. 10) 

0163 


WRITE (3.1030) 

0164 


DO 2800 I-l.NUMORG 

0165 


TORGCSd.5) - (T0RGCSd.l)+T0RGCSd.2) )/AMORT + TORGCSd.3) 
2 + TORGCSd.4) 

0166 


DO 2700 J-1 1.14 

0167 

2700 

ANNL(J) = ANNL(J) + TORGCS d . J-10 ) 

0168 


ANNL(15) - ANNL(15) + T0RGCSd»5) 

0169 


WRITE (3.1027) I . ( ORGNAM d . J ) . J-1 . 20 ) . ( TORGCS (I . J ) . J-1 . 5 ) 

0170 

2800 

CONTINUE 

0171 


WRITE (3.1028) ( ANNL < J ) . J-1 1 . 15 ) 

0172 


WRITE (3.1032) 

0173 


DO 3000 I-l.NUMORG 

0174 


AORGCSd.5) - (AORGCSd. l)+A0RGCSd.2) )/AMORT + AORGCSd.3) 
2 + AORGCSd. 4) 

0175 


DO 2900 J- 2 1.2 4 

0176 

2900 

ANNL(J) - ANNL(J) + AORGCS (I . J-20 ) 

0177 


ANNL (25) - ANNL (25) + AORGCS (1.5) 

0178 


WRITE (3.1027) I . ( ORGNAM < I . J ) . J-1 . 20 ) . ( AORGCS ( I . J ) . J-1 . 5 ) 

0179 

3000 

CONTINUE 

0180 


WRITE (3.1028) ( ANNL ( J ) . J-21 . 25 ) 

0181 


WRITE (3.1031) 

0182 


DO 3200 I-l.NUMORG 

0183 


DO 3100 J-1. 5 

0184 


XORGCS ( I . J ) = UORGCS d . J ) +DORGCS d . J ) +TORGCS ( I . J ) +AORGCS ( I . J ) 

0185 


ANNL(J+15) = ANNL(J+15) + XORGCSd.J) 

0186 

3100 

CONTINUE 

0187 


WRITE (3.1027) I . ( ORGNAM ( I . J ) . J- 1 . 20 ) . < XGRGCS ( I . J ) . J= 1 . 5 ) 

0188 

3200 

CONTINUE 

0189 


WRITE (3.1028) < ANNL ( J ) . J-1 6 . 20 ) 
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C 

C 

C 

0190 3300 

0191 

0192 

0193 3400 

0194 3500 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0208 


CALCULATE AND PRINT TOTAL COSTS FOR GRAND SUMMARY TABLE 

DO 3500 K-1.5 
DO 3400 J-l»4 
TC0ST(4.J) * GANDAD(J) 

TCOST(StK) ■ TC0ST(5fK)+TC0ST( J»K) 

CONTINUE 

TC0ST<4.5)»<TC0ST<4f 1 )+TC0ST(4»2) )/AMORT + TC0ST(4f3> + TC0ST<4»4) 
TC0ST<6» 1)-TC0ST(5»1 ) /AMORT 
TCOST ( 6 » 2 ) -TCOST ( 5 » 2 ) /AMORT 
TC0ST(6»3)-TC0ST(5»3) 

TC0ST<6f4)-TC0ST(5»4) 

TCOST ( 5 » 5 ) - < TCOST < 5 » 1 ) +TC0ST < 5 » 2 ) ) / AMORT+TCOST <5.3 ) +TCOST < 5 . 4 ) 
TCOST (6.5) -TCOST < 6. 1 ) + TCOST (6. 2) + TCOST < 6.3) + TCOST <6. 4) 

IF (REPNUM( 19) .NE. 1) RETURN 
WRITE (3.1001) (TITLE(I). 1-1.72) 

URITE(3.1004) 

WRITE<3 . 1005) ( (TCOST( I. J) .J- 1.5) .1-1.6) 

NYEARS » IFIX(EQPLIF) 

WRITE ( 3 . 1006 ) NYEARS . DISCNT . TCOST (6.5) 

RETURN 


0209 

0210 


0211 


0212 


0213 


0214 

0215 


0216 

0217 


C 

C 

C FORMAT STATEMENTS 
C 

1001 FORMAT (1H1.72A1) 

1004 FORMATdHO. /////. 30X. 'OVERALL COST SUMMARY './///. 20X . 

2 'CAPITAL' .3X. 'PLANNING AND '. 7X .' ANNUAL '. 7X .' ANNUAL ' . 

3 3X. 'ANNUALIZED' ./.17X. 'EXPENDITURES' fix. 'INSTALLATION' . 

4 7X. 'LEASE' .8X. 'OtMlA' .7X. 'COST'/) 

1005 FORMATdHO. 'UPLINK' .9X.5F13.0/. ' ODOWNLINK ' . 7X . 5F13 . 0 . 

2/f 'OVOICE TALKBACK' . IX. 5F13.0/. ' OADMINISTRATI VE ' . IX. 5F13 . 0 . 
3//.'0 TOTALS' .6X.5F13.0///. '0ANNUALI2ED COST ' . 5F1 3. 0 ) 

1006 FORMAT(////. IX. 'EFFECTIVE YEARLY COSTS FOR '.12.' YEAR. '.F5.2. 

2' PERCENT AMORTIZATION — $'.F9.0) 

1015 FORMATdHO. 27X. 'TALKBACK SYSTEM LEASE COSTS './. 35X .' TO '.16A1.//// 

2 21X. 'HOURS' .8X. 'WATS COSTS '. 4X .' PRIVATE LINE'.3X. 

3 'DIRECT DIAL' ./.5X. 'CITY' .6X. 'LEVEL' . IX. 'UTIL. ' . IX. 'BIST' . IX. 

4 'INSTALL LEASE' .2X. 'INSTALL LEASE '. 2X .' INSTALL LEASE'. 2X. 

5 'BEST'/) 

1016 FORMAT (IHO. 16A1 . 13 . F5 . 0 . F6 . 0 . F8 . 0. F6 . 0 . F9 . 0 . F6 . 0 . F9 . 0 . F6 . 0 . 2X . A4 ) 

1025 FORMATdHO. 28X. 'NETWORK COST ALLOCAT ION './//. 30X. ' CAPI TAL '. 4X . 

2 ' INSTALL' .6X. 'LEASE' .6X. '0*MliA' . IX .' ANNUALIZED ' ) 

1026 FORMATdHO./.' UPLINK'./) 

1027 FORMAT (IH . 13 . IX . 20A 1 . IX . 5F 1 1 . 0 ) 


0218 

0219 

0220 
0221 
0222 
0223 


1028 FORMAT( IHO. 8X. 'TOTAL' . 12X.5F11 .0) 

1029 FORMATdHO./.' DOWNLINK'./) 

1030 FORMATdHO./.' VOICE TALKBACK'/) 

1031 FORMATdHO./.' TOTAL NETWORK'/) 

1032 FORMATdHO./.' ADMINISTRATIVE'/) 
END 
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SECTION 3. EARTH MODULE 


Section 3 includes listings for the main program for the EARTH module 
and the following subroutines: 

MOVREC 
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PAOi I 


FORTRAN IW-FLU8 M02-51C 
EARTH. FTN /TRJ1L0CK8/WR 

C EARTH STATION REPORT PROGRAM 

C 

C THIS PROGRAM PRODUCES A REPORT OF ALL EARTH STATIONS THAT ARE 
C WITHIN A OIMEN DISTANCE FROM AN UPLINK OR DOWNLINK CITY THAT 
C IS IN A USER'S SCENARIO. THE REPORT MAY BE LIMITED BY SPECIFYING 
C A UNIQUE SATELLITE THAT THE EARTH TERMINAL MUST BE LICENSED TO 
C POINT TO. 

C 

C SUBROUTINE CALLS! READING UANDH. MOMREC> CODCHK 
C 

0001 INCLUDE 'SYOJCOMBLK.FTN/NOLIST' 

0039 L001CAL91 PADa2440> 

0040 COMMON PAD 
C 

0041 LOGICAL*! CALSIN<S> fLlCN8E<40) *CITY<20) »8TATE<2> f SERVI8( 18) 

0042 LOGICAL*! BAND(4>2) .SIZE(4) 


0043 

0044 


0045 

0046 

0047 

0048 

0049 

0050 

0051 


0052 

0053 

0054 

0055 

0056 


1NTE0ER*2 UPDOWN 

COMMON /ESTATN/ UPDOWN. CALSINrLICNSEfCITY»STATE>SERUI8»BANDtSIZE 
C 

C LOCAL UARIABLES 
C 

LOGICAL*! 8ATLIT<5).AUTHCD.INCHAR<5> 

LOGICAL*! SATCOD < 25 . 5 ) » HEADER < 72 ) . TMPAR Y < 82 ) . SAT ( 5 . 5 ) 

LOGICAL*! NAMUCT < 1 0 . 1 6 ) . NAMDCT <80.16). CODUST < 1 0 . 2 ) . C0DD8T ( 80 . 2 ) 
INTE0ER*2 BAD. LAT . LON . UCTARY < 10 ) . DCTARY ( 80 ) . NUMCHR . NUMSAT 
INTEGER*2 P08 . UCI T YN » DC I T YN . NUMREC . I . J . F I RST . LAST 
INTEGER*2 ORGNUM » MUC ITY < 10 ) . HUCITY < 10 ) . UDCITY < 80 ) . HDCI TY < 80 ) 
REAL*4 DIST.DISTNC.D0WNUP(2).X.Y 
C 

C TO PROUIDE CONSISTENCY BETWEEN THE BUILD. MODEL. AND EARTH 
C NODULES. THE SUBROUTINE READIN IS USED TO READ THE USER'S 

C SCENARIO. SINCE THIS REQUIRES A LOT OF OVERHEAD IN TERMS OF 

C DATA THEAT IS NOT REQUIRED FOR THIS MODULE. THOSE UARIABLES 
C THAT ARE NEEDED ARE SAVED IN LOCAL ARRAYS AND THE EARTH 

C TERMINAL ARRAY IS OVERLAYED ON TOP OF THE COMMON. TO 

C PROTECT AGAINST WRITING OVER OTHER VARIABLES. THE COMMON 

C MUST BE 'PADDED* OUT TO ASSUME THE SIZE OF THE EARTH TERMINAL 

C ARRAY. THE FORMULA FOR DOING THIS IS! 

C 

C SIZE OF PAD ■ 78 + 82 * (NUMBER OF RECORDS IN ARRAY - 199) 

C 

LOGICAL*! BI6REC(350.82) 

EQUIVALENCE (BIOREC< 1 . 1 ) .NUELEM) 

C 

DATA NUMSAT /25/ 

DATA DOWNUP /'DOWN'.' UP'/ 

C 


DATA 

SATCOD /'K' 


'K' 


'K' 


'K' 


'K' . 

'K' 


'K' . 'K' 


'K'. 

'K' 


'A' 


'A' 


'A'. 

2 

'M' 


'M' 


'M' 


'I' 


'I'. 

'I' 


■ I ' . ' I ' 


'I'. 

'K' 


'K' 


'K' 


'S'. 

3 

'S' 


'S' 


'S' 


'S' 


'S'. 

'S' 


'S'.'S' 


'S'. 

'N' 


'N' 


'N' 


'R'. 

4 

'R' 


'R' 


'N' 


'N' 


'N'f 

'N' 


'N' . 'N' 


'8' » 

'S' 


'S' 


'2' 


'2'. 

5 

'2' 


'2' 




'2' 


'2'. 

'3' 


'3'. '3' 


'I'. 

'I' 


'I' 


'1' 


'2'. 

6 

'3' 


'1' 


'2' 


'3' 


'4'. 

'4' 


'5'. '3' 


'3'. 

'3' 


'0' 


'1' 


'2'. 

7 

'6' 


'7' 


'8' 


'9' 


'O'. 

'1' 


'2'. 'K' 


'K' . 

'K' 


/ / 


/ / 


/ / - 

8 



/ 


/ / 


/ 


'A'. 

0 


'6'. '7' 


'8'. 

0 


/ / 


0 


' ' 1 

9 

f / 


t / 


/ / 


t 4 


t t . 



'1'. '2' 


'3'. 

t / 


^ / 


0 F 


F F 
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FORTRAN IW-RUUS W02-S1C 
EARTH. FTN /TRIW.OCKS/WR 


30^JUN“80 



r 

1 f 




0057 

w 

CALL REA51N 




0058 

c 

c 

OPEN < tMI T>2 » TYPE- ' 01.D ' t NAME- ' 8Y0 J EARTH , DAT ' f 
2 CARRIA8ECONTROU-'H8T'»ERR-9010) 





SINCE THE COMMON AREA WILL SE USED TO STORE THE 

EARTH 

TERMINAL 


c 

c 

c 

RECORDS* SOME OF THE COMMON 9ARIASLE8 HILL HAVE 
LOCAL MARIADLES. 

TO 

8E 

SAUED AS 

0059 

UCITYN-NUCITV 




0040 


DCITYN-NDCITY 




0041 


0R8NUM-NUM0R8 




0042 


DO 5 1-1*72 




0043 


HEA0ER<I)-T1TLE(1) 




0044 

5 

CONTINUE 




0045 


DO 30 I-1*DCITYN 




0044 


yOCITY<I)-OCITYM<l) 




0047 


HDCITY<I>-DC1TYH<I) 




0048 


DO 10 J-l*14 




0049 


NAMDCT < I * J ) -DCTNAM ( I * J ) 




0070 

10 

CONTINUE 




0071 


DO 20 J-l*2 




0072 


C0DD8T < I * J > -D8TC0D ( I * J ) 




0073 

20 

CONTINUE 




0074 

30 

CONTINUE 




0075 


Ml 40 I-1*UCITYN 




0074 


MUCITY<n-UCITYW<I) 




0077 


HUCITY<1)-UCITYH<1> 




0078 


W 40 J-l*14 




0079 


NAMl^T ( I * J > -UCTNAM a * J > 




0080 

40 

CONTINUE 




0081 


DO 50 J-l*2 




0082 


C0IHJ8T < I * J ) -U8TC0D <1 * J > 




0083 

50 

CONTINUE 




0084 

40 

r 

CONTINUE 





w 

C 

r* 

ELIMINATE UPLINK DUPLICATE CITIES IF THERE IS COST 

ALLOCATION 

0085 


IF <ORGNUM.EQ.O) GO TO 140 




0084 


DO 90 K-2*UCITYN 




0087 


DO SO I-l.K-1 




0088 


DO 70 J-1.16 




0089 


IF <NAMUCT<K*J).NE.NAMUCT(1*J>) GO TO 80 



0090 

70 

CONTINUE 




0091 


WUCITY(K) — 1 




0092 


GO TO 90 




0093 

80 

CONTINUE 




0094 

90 

CONTINUE 





c 

c 

c 

ELIMINATE DOWNLINK DUPLICATE CITIES IF THERE IS 

COST ALLOCATION 

0095 

c 

DO 130 K-2.DCITYN 




0096 


DO 120 I-l.K-1 




0097 


DO 110 J-1.14 





4 


'1 
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CAKTH , FTN /TR t tL(^K8/lM 


009S 


IF <NANOCr(K.J)«NE.NANDCTn.J)) 00 TO 120 

0099 

110 

CiMTINUC 

0100 


W0CITT(KM-1 

0101 


00 TO 130 

0102 

120 

CMTIMMI 

0103 

130 

f* 

CONTINUE 


w 

c 

m 

MNi* CLEAR CHIT THE COHNON DT FILLIMS Xm DIOREC ARRAT v'lTN DLAMCS 

0104 

c 

140 

DO 140 I>lf380 

0105 


DO 150 J-1.82 

0104 


DIORECd.J)-' ' 

0107 

ISO 

CONTimiC 

0108 

140 

CONTIWJC 

0109 

170 

MIITE <1.«) 'ENTER THE NAXINUN ACCCFrAM.C DISTANCE (IN NILES)' 

0110 


MIITE (1*«> 'DCTI«EN AN EARTH STATION (U(D A CITY' 

0111 


ASSIGN 170 TO DAD 

0112 


READ (l.«.ERR>9000) OISTNC 

0113 


IF (DISTIC.OT.O.ANO.DISTIC.LC.SO.) 00 TO 200 


C 

C DISTANCE OUT RANOE 


C 

OU4 UNITE (1*«> 'DISTANCE HU8T DC LESS THAN SO NILES' 

0115 60 TO 170 

C 

C ENTER SATELLITE 

C 

0114 200 WRITE (1»«> 'ENTER Tl« SATELLITE OF INTEREST DT CALL NUNDER' 

0117 READ (If2l0) (SATLITI 1 > t I-l tS) 

0118 210 FORMAT <5A1) 

0119 IF <8ATL1T<1>.E0. 'A' .AND.8ATLIT(2) ,EQ. 'L' . AN0.8ATLIT(3> .EQ. 'L' ) 

2 60 TO 400 

0120 CALL C0DCHK<5.SATLITfNUN8ATfSATC0DfP08) 

0121 IF (FOS.NE.O) 00 TO 300 

0122 WRITE (SAVLITf I ) » I*l »S.' 

0123 220 FORMAT 'IX* :MVALIH satellite call NUNDER 'tSAl/T 

0124 WRITE <!»*> 'MALID SATELLITES ARE...' 

0125 WRITE <1-230 ( <SATCOD< I » J) * J"1 .5 > . I«l »25) 

0120 2T0 format . '»lX-SA1.2Xf 'WESTAR 

2 1X.5A1»2X. 'WESTAR II'./. 

3 1X.5A1.2X. 'UESTAR III'./. 

4 1X.5A1.2X. 'CONSTAR D-l'./» 

5 1X.SA1.2X. 'CONSTAR D-2'./. 

6 IX.5AI.2X. 'CONSTAR D-3'./» 

7 IX .5A1.2X. 'CONSTAR D-4'./. 

8 IX.5A1.2X.'SATC0N I'./. 

9 1X,SA1.2X.'8ATC0N II'./. 

1 1X.5A1.2X. '8ATC0N III'./. 

1 IX. 5A1.2X. 'CANADIAN TELESAT SATELLITES'./. 

2 1X.5A1./. 

3 1X.5A1./. 

4 IX.5AI.2X. 'MARISAT I'./. 

5 IX.5A1.2X.'NARISAT II'./. 

4 IX.5A1.2X.'NARISAT III'./. 

7 1X.5A1.2X.' INTELSAT I',/, 
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p-Aoe 4 


f 

1 

t 

s 

3 

4 

5 


|j(»5Alf3X»' INTELSAT 
iXfSAltlXf' INTELSAT tit',/, 
lXfSAI»3Xf 'INTELSAT IV'»/» 
iX»SAl>3Xt' INTELSAT IM-A't/t 
1X»SA1.2X.' INTELSAT V',/, 
IXr5Alr2X»'SS8 I',/, 
lXfSAl»2Xf 'StS II'f/> 
1X»5A1»2X»'8W III'.//) 


0127 

C 

M 

80 TO 300 

0128 

400 

trPA88»l 

0127 

500 

UAMMAt-O 

0130 

f' 

miMlEC>0 


V 

c 

r. 

520 

HEAD T)« DATA SASE 

om 

READ <2.530.CRR>9030.ENS-5S0HCAL8IN< I > »I-1 .5 
3 <CITT<l).I»l.30).<STATE<l).l«1.2).AUTHC0 

0132 

530 

rORNAT <5Al.lKt40Alf lX.20Al.iXf2A1.4X.Al) 

0133 

W 

READ { 3 . 535 • ERR-703Q . EN0>580 M 8ERVIS < I ) . I > 1 . 1 8 
2 I«l.4).(SI2£<I)f I»l.4).L.AT.L0N.<<8AT<I., 

01 14 

535 

FORMAT <4Xf t8A1.4(3Al>.4At.I4.2X. 18.2X«5(5A1) 


w 

c 

LOOK FOR SATELLITE 

013S 

w 

IF (tTFASS.CO.U 00 TO 534 

0134 


CALL C0SCHK(SfSATLIT.5.SAT.F0S> 

0137 


IF (RO8.E0.O) 80 TO 530 


w 

C 

CALCULATE V ANP H COORDINATES 

0138 

536 

LA1*-LAT 


f 

CALL MA'^I'H' LAI .I.ON ■ 



CALCUI.ATS: PtSfANCE FFOM OFLINK CITIES 

0 1 <10 



<M4J 


ir -SCsyiS'Bl.NE 'T'- SO TO 557 

''1 *• U 


545 I*1.UCTTTN 

•143 


IF 'MuciTva:- .eo.~i' oo to i»5 

014“ 


X»UUClTYa> -LAT 

•1)45 


r^HgciTta LON 

0144 


prET»(X** 2 +r«(* 2 )/io. 

0147 


PI5T«;GFT<PtST) 

0148 


IF 'ItlST.CT.plSTNC' GO TO 545 

0149 


ir iNUHREC.E0.750) GO TO 570 

0150 


NUHREC-MUHREO I 

0151 


CALL HOMRCC<!.NOHREC) 

0152 


UCTAfty< I '»UCTART< I )+l 

0157 


CONTINUE 


V 

r 

r 

CrtLCULATC DISTANCE FROM DOWNLINK CtTTCS 

0154 


yFD0UN«2 


<LICNSE<I).I>1.40). 


0-6S 
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P40f 5 


01S8 

otso 

01S7 

OlSi 

OiSf 

0140 

0t4t 

0142 

0143 

0144 

0145 
0144 
0147 

014f 

0147 

0170 

0171 


0172 

0173 

0174 

0175 

0174 
0177 

0175 
0177 


0180 

0181 

0182 

0103 

0104 
018*5 

0186 

0187 


540 

C 

570 


C 

C 

c 

580 


C 

c 

c 

400 

410 

420 

630 

C 

’00 

800 

C 

c 


ir C8f8Vf8<t>«NC.'ft'.AM8.SeRVl8<7KNC.'R*l 80 TO 520 
DO 540 Z>iiDCim 

IF (WCITt«n.fO.-n 80 TO 540 

X-MKITVai-tAT 

TMnwimn-LWi 

DI8T- ( X*t24T«f 2 }/lOt 

DIST«8IMir(Dl§T) 

IF (DIST.Or.OIiT)^) (K) TO 540 
IF <Ntm8EC.E0.350> 00 TO 570 
NUM8EC-NUM8EC41 
CALL nOM8EC(IfNUN8£C> 

DCTA8T< I) -DCTART < I ) +1 
COMTINUE 
00 TO 520 

MtlTE <}f«) OVER 350 EARTH STATIONS QUALIFY «»»«»' 

MUTF a>t) 'OIA.Y A RARTIAL REPORT WILL 8E CREATED' 
lAlITE (l»*> 'USE A SMALLER DISTANCE FOR A FULL REPORT' 

CL08E me EARTH TERHINAL FILE AND SORT THE ARRAY 

CLOSE (UNIT-21 
M.ES81-NtlMREC>l 
DO 800 I>1>NLESS1 
IPLU81-IT1 

DO 700 J-IPLUS1»WHREC 

IF (®10REC<J.l>.0r.BIGRECaf i>> 00 TO 700 

IF (8ieREC(J>i>.LT.8I8R£C(I>l)> 80 TO 400 

IF <5Z0REC(J:2).0T,8IGRECat2>) 00 TO 700 

0T1CRWI8E 8IN^ 

DO 410 L*l»82 

TMPARY(U-8I8REC( J.L) 

DO 420 L-l»82 

»rORfC( J*l-'-810RECn.L» 

DO 430 L-l»82 

8If>REC f 1 *L > -THPARY ( L » 

CONTINUE 

CONTINUE 

PRINT THE REPORT 


0188 

''137 

170 

'»191 

0172 


0173 

0174 


0175 


4000 

4100 


4400 

c 

4420 

C 


WRITE '3*4100XHEADER' I>»I-1.72' 

FORHAT {'l'.72Al/> 

IPIST-OISTNC 

WRITE <3. 4400) 00WNyP<2>»IDlST»'SATLIT<I).l-1.5' 

FORHAT <//.lX.A4f 'LINN Cl TIES- -EARTH STATIONS WITHIN '.13. 

3 ' MILES AND licensed TO POINT TO '.5Al.'/> 

tmiTE (3.4420? 

FORMAT (1*. 'CALL SION' .UX. L ICENSEE '• 31 X .' CITY '• 4X. ' STATE '. ’X . 
2 'SERVICE'. 3X. 'SIZE » 

FIRST-l 
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EARTH 

• FTN 

/TRt BLOCKS/HR 

0194 


DO 4750 I-1»UC1TVH 

0197 


IF (VUCITY(I).E0.-1> 60 TO 4750 

0198 


IF <UCTARy(l).EO.O) 60 TO 4740 

0199 


WRITE <3>4730) <NAHUCT(I > J) > J«1 r 16) • <CODUST(I > f L«1 f 2) 

0200 

4730 

FORHAT </»'*«*»t***»**»*» '»16A1.2X.2Al/) 

0201 


LA8T-FIRST+UCTARY (I ) - 1 

0202 


DO 4735 K«FIRSTfC.A8T 

0203 


URITE (3t473l) (BIGREC(K.L) fLa3»82) 

0204 

4731 

FORHAT (1X»80A1/) 

020S 

4735 

CONTINUE 

0206 


FIRST-UAST-K 

0207 


60 TO 4750 

0208 

4740 

WRITE <3»4745) <NAHUCT( I »L > »L»1 » 16) » (CODUSTd »U *L*1 » 2) 

0209 

4745 

FORHAT </»lX»'NO EARTH STATIONS NEAR ' »16A1»2X»2A1) 

0210 

4750 

CONTINUE 


W 

c 

DOWNLINK PART OF REPORT 

0211 

Q 

5000 

WRITE <3»4600) DOWNUPd > . IDIST. (SATLIT< I ) » I-l »5) 

0212 


WRITE (3»4620) 

0213 


DO 5750 I»1*DCITYN 

0214 


IF <VDCITYd).EQ.-l) 60 TO 5750 

0215 


IF IDCTARYd) .EQ.O) GO TO 5740 

0216 


WRITE (3»4730) (NAHDCTI I » J) » J»1 » 16) » (CODDST< I » J) . J*1 »2) 

0217 


LAST=FIRST+DCTARYd ) -1 

0218 


DO 5735 K-FIRST.LAST 

0219 


WRITE (3f4731) <BIGRECCK»L) » l.=3»82) 

0220 

5735 

CONTINUE 

0221 


FIRST-LA8T+1 

0222 


60 TO 5750 

0223 

5740 

WRITE <3f4745) (NAHDCTd fL ) »L»1 » 16) » <CODDSTd » J) »L=1 »2) 

0224 

5750 

CONTINUE 

0225 

u 

60 TO 9900 

0226 

L 

9000 

WRITE (If*) 'ERROR IN NUHERICAL READ - PLEASE REENTER' 

0227 


GO TO BAD 

0228 

9010 

WRITE (1f#> error opening EARTH TERMINAL FILE' 

0229 


GO TO 9900 

0230 

9020 

WRITE dF#> 'ERROR READIN EARTH TERMINAL FILE' 

0231 

9900 

STOP 

0232 


END 


I 
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FORTRAN IW-PLUf 002-310 
NOVREC.FTM /TR J 6LQCKS/*m 

0001 SUiRQUTlNE MOVREC(I>J) 

C 

C THIS ROUTINE HOMES THE EARTH TERHINAL INFORHATION INTO AN ARRAY 
C WHICH IS PRINTED IN THE PROBRAH EARTH. 

C 

C CALLED by: EARTH 
C 

C DIOREC - AN ARRAY CONTAINING UPLINK OR DOWNLINK CODE> CITY INDEX. 

C AND A PRINT RECORD FOR EACH EARTH TERHINAL NEAR EACH 

C CITY 

C 

Cl - INDEX, OF THE UPLINK OR DOWNLINK CITY 

C 

C J - INDEX OF THE BIGREC 

C 

C UPDOWN - I • UPLINK, 2-DOWNLINK 
C 

0002 INCLUDE 'SYOICOHBLK.FTN/NOLIST' 

C 

0040 LOGICAL*! PAD( 12440) 

0041 COHMON PAD 

r 

0042 " LOGICAL*! CALSIN(5) ,LICNSE<40) ,CfTY(20) , 

2 STATE<2),BAND(4»2) ,SIZE<4),SERMIS<18> 

0043 INTEGER#2 UPDOWN, I, J 
C 

0044 COMMON /ESTATN/ UPDOWN, CALSIN.LICNSE, CITY, STATE, SERVIS, BAND, SIZE 
C 

0045 LOGICAL*! BIGREC(350,82) 

0046 EQUIVALENCE <BIGREC( 1 , 1 ) , NUELEM) 

C 

0047 B I GREC(J,1) -UPDOWN 

004G BIGRECC J,2)-I 

0049 DO 10 K=3,7 

0050 10 BIGREC(J,K) » CALSIN<K-2) 

0051 DO 20 K-9,43 

0052 20 B16REC(J,K) = LICNSE(K-S) 

0053 DO 30 K-46.61 

0054 30 BIGREC(J,K) « CITY(K-45) 

0055 DO 40 K»64,65 

0056 40 BIGREC(J,K' » STATE(K-63) 

0057 DO SO K-68,76 

0058 SO BIGREC(J,K) - SERVIS(K-67) 

0059 DO 60 K-79,82 

0060 60 BIGREC<J,K) = SIZE<K-78) 

C 

006) RETURN 

00 i2 END 






SECTZOH 4. (SNBBAL UTILITY SUBROUTINES 

SACtlon 4 includes listings for the general utility subroutines used 
all of the modulo'^.. 

READIN 

RITOUT 

YEStK> 

UPDONN 

COOOiK 

(STTER 

CCOUNT 

DISAPR 

RDCOST 

RAT^ 

CTYCHK 

VANl^ 

HRTMOD 

REPRTR 




Page 


NOT 


^MeT) 


D-73 


13tl0:s9 


PABE 1 


FORTRAN rV-RLUS W02-51C 
READIN.FTN /TRS8U0CKS/WR 


X2-JUN-SO 


0001 

0002 

0040 

0041 

0042 

0043 


0044 

0045 
0044 


C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C SUBROUTINE RCAOIN 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C CAUE& by : build > MODEL > EARTH 

c 

SUBROUTINE READIN 

IJttLUDE 'STOICOHBLK.FTN/NOLIST' 

LOOICALtI INNANE<14> 

REAL44 PROBLNOtS) 

DATA INNAHE /'S' » 'Y' » '0' » ' : ' »4»'X' . ' . ' » 'D' t 'A' » 'T' »0»0/ 

DATA PROBLH /' SC'f'ALAR'*' '.'UFLI't'NK C't'STEL'f 

2 'UPLI'»'NK P'»'ATHS'»'UPLI'»'NK C'» 'ITY'»'DNLI'* 'NK C'f'STEL'. 

3 'DNLI'f'NK P'»'ATHS'»'DNLI'»'NK C' » 'ITY' » 'TALK' » 'BACK' . ' '/ 

C 

C OPEN INPUT SCENARIO FILE 
C 

URITECltV) 'ENTER NAME OF SCENARIO FILE' 

READ< 1 >5001 >ERR«5030) ( INNAMEC I> > I>5> 10) 

OPEN <UNIT«2>TYPE«'0LD' >NAHE»INNAME>CARRIAOECONTROL»'LIST' > 

2 ERR-5020) 

C 

C HEADER RECORD 
C 


0047 JERRORal 

0046 REAO(2>5001>ERR>5030) (TITLE(I)>I>1>72) 

0049 5001 F0RMAT(72A1> 

C 

C NUMBER OF COST ELEMENTS > INDEXES >CITIES>PATHS>COST ALLOCATION ORGS 
C 

0050 READ ( 2 > 5002 > ERR-5030 ) NUELEM > NDELEM > NU I NDX > ND I NDX > NUC ITY>NDCITY> 

2 NUPATHtNDPATHfNUMORG 

0051 5002 FORMAT <91 4) 

C 

C ALL OTHER SCALARS 
C 

0052 READ ( 2 > 5003 > ERR-5030 > DDDCPH > DDDINS > DDDLES > EQPL IF > PVTLES > PVTF IX > 

2 PVT I NS > PVTM IL > D I SCNT > TLKC AP >WATINS>WATLES 

0053 5003 F0RMAT<F5.2>2F4.2>F5.1>3F7.2>F4.3>F5.1>F4.2>F7.2>F6.2) 

0054 READ (2 > 5050 > ERR-5030) UATMAX>UATCPH> (GANDADC I) > I-l >4) 

0055 5050 F0RMAT<2F8.2>4F12.2) 

•C 

C COST ALLOCATION ORGANIZATION NAMES> IF APPLICABLE 
C 


0054 


IF(NUMORG.EO.O) GO TO 510 

0057 


LI > 1 

0058 

501 

L2 ■ MIN<NUN0RG>L143) 

0059 


READ ( 2 > 5004 r ERR-5030 ) < ( ORGNAM <I>J)>J-1>20)>I-L1>L3) 

0040 

5004 

FORMAT (4(20A1)> 

0041 


LI • L2 ♦ 1 

0042 


IF (Ll.LE.NUMORG) GO TO 501 


C 

C UPLINK COST INDEX NAMES AND COST ALLOCATION WEIGHTS 






“'A 






D-75 


PCMiTRAN 

IM-PI 

REAOIN. 

FTN 


C 

0063 

510 

0064 

5008 

0065 


0066 

5006 


C 


C 1 


c 

0067 


0068 


0069 


0070 

5007 

0071 


0072 


0073 

518 

0074 


0075 

520 

0076 


0077 

5008 

0078 


0079 

525 

0080 

530 


C 


C 1 


c 

0081 


0082 


0063 


0064 

5009 

0085 

540 


C 


C 1 


c 

0086 


0087 


0088 


0089 


0090 

5010 

0091 


0092 

550 


13tlOtS9 


12-JUN-80 


PAGE 


/TRJW.OCKt/y. 


00»3 

0094 

0095 


009A 

0097 


tP <miINDX.(».2> 

2 READ <2f 5005* ERR «S030) 

PORHAT (S(8AlflX)} 

IP (NUHORO.OT.O) READ<2>S00A>ERR 
P0R«AT(6P7.3) 

UPUINK COST ELEMENT DATA 


<<UCINDX(I>J}»J«1»8>>I*2>NUINDX) 

5030) (UDXMHT(I)a-liNUINDX) 


JERR0R«2 

DO 830 X • ItNUELEH 

READ ( 2 > 5007 1 ERR>8030 > < UC8C0D < I » J ) > 1 > 2 ) « ( UC8NAH ( I f J } > J> 1 > 20 > » 

2 UCSMIN(I)t(UCSDAT<IilfK)»K-lf4> 

P0RNAT(2Al>tX»2OAlf7X»SP10.3) 

IP (NUINDX.EQ.l) 80 TO 540 
J > 0 
J • J * 2 

IP - NUXNDX) 520>S25»530 
JJ - J 4 1 

READ(2>S00StERR*5030)<UCS0AT(I>JtK)fK*I>4}f (UCSOAT<X>JJ>K) iK-lr4> 
P0RMAT(8PtO.3> 

60 TO 518 

READ ( 2 f 5008 » CRR>5030 ) ( UCSDAT ( 1 » J > K > » K- 1 1 4 ) 

CONTimiE 

UPLINK PATH DATA 


1 > 20 > f ( UCSPTH ( J > X > > 1 r NUELEH > 


C 

c 

c 

555 


UERROR-3 

DO 540 X-1>NUPATH 

READ ( 2 • 5009 > ERR«5030 ) ( UPTHNM ( I f J ) t 
P0RMAT<20AlrSXflSIX) 

CONTINUE 

UPLINK CITY DATA 

JERROR-4 

IF (NUCITY.EO.O) 60 TO 555 
DO 550 I«1*NUCITY 

READ ( 2 > 5010 > ERR-5030 ) < UCTNAM (I»J)tU«lfl6)f< USTCQD (X > U ) r J* 1 • 2 ) f 
2 UCITYV ( I > f UCITYH ( X > f UCTCHN( I ) t UCTORG< X > r < UPTHCY ( J * I ) t J»1 » NUPATH ) 
P0RMATa6Al>lX»2Al>2I4r2I2»5X>10Xl) 

IP <NUIN0X.8T.l) READ<2f5008>ERR*5030) (UCTXVLC X> J) f J-1 >NUXN0X-1 ) 
CONTINUE 

DOWNLINK COST INDEX NAMES AND COST ALLOCATION WEIGHTS 

JERROR-5 
IF <N0INDX.8E.2) 

2 READ(2rS005»ERR*5030> ( (DCINOXCI r J> >U>1 r8> t X-2rNDXNDX) 

IF (NUM0R6.6T.0) READ(2>5006tERR>5030) <DDXWHT< X) » I>1 tNDXNDX) 

DOWNLINK COST ELEMENT DATA 

DO 630 I > IfNDELEM 

READ < 2 f 5007 r £RR>5030 ) ( DCSCOD ( X r J ) r J> 1 > 2 ) f ( DCSNAM ( I > J ) > J> 1 r 20 ) • 

2 OCSMIN(I>» (DCSDAT(X.lfK)fK«lf4> 


D-76 




kiiii! 



FORTRAN IW-PUUS W02-51C tSilOiiT l2-JUN-iO PAOE 3 


L 1 

READIN 

.FTN 

/TR18L0CK8/UR 



OOTt 


IF (NOINDX.EQ.l) 00 TO 640 


’ f 

OORf 


J > 0 


/ j 

0100 

618 

J • J T 2 



0101 


IF <J - NOINOX) 620f625>630 



0103 

620 

■ J ♦ 1 



0103 


RCA8<2>8008tERR«8030) (DC8DAT(lf J»K) *K-1 i4) t (DCSOATdr JJf K) >K>1 »4> 



0104 


00 TO 618 



0105 

625 

REAS < 2 f 5008 1 ERR-5030 ) < OCSOAT ( 1 1 J f K ) t K-1 > 4 ) 



OlOA 

630 

CONTIM« 




w 

C 

e 

SOWNUINK RATH DATA 



0107 


JERROR-6 



0108 


SO 640 I«lfNSFATH 



OlOR 


REAS ( 2 • 500R • ERR-5030 ) ( SPTHNH ( 1 . J > • 1 1 20 ) • ( DC8PTH ( J • I > • 1 1 NSELEH ) 


: "4 

0110 

640 

CONTINUE 




w 

c 

DOW«.INK CITY DATA 



Olll 

% 

JERR0R>7 



0112 


IF (NDCITY.EQ.O) 00 TO 6R0 



0113 


DO 650 I-lfNDCITY 



0114 


READ<2>5010>ERR-5030) (DCTNAM< 1> J) t J-l> 16) t <D8TC0D< I » J> > J>1 >2) > 





2 DCITYV( I ) » DCITYH ( 1 > . DCTtVL < I ) t DCTORO < I ) » < SPTHC Y ( J » I ) , J- 1 » NDPATH > 



0115 


IF (NDlNDX.OT.l) READ<2>S008>ERR-5030) (DCTXVL(1> J)> J-lfNDINDX«l> 



0116 

650 

r 

CONTINUE 




w 

C 

p 

TAUKSACK INFORHATION 



0117 

w 

JERR0R>8 



0118 


IF (NUCITY.EQ.O) GO TO 6R0 

J 


OllR 


DO 680 J-lfNUCITY 



0130 


1.2 > 0 



0121 

660 

LI • L2 + 1 



0122 


U2 ■ LI 4 12 



0123 


IF(Ll.OT.NSCITY) 00 TO 680 



0124 


1F<L2.0T.NDCITY) L2-NDCITY 



0125 


REAO<2>5011»ERR-S030) (TALKBK(IiJ>rI-LlfL3> 



0126 

soil 

FORMAT (13F6.1) 

j 


0127 


00 TO 660 



0128 

680 

CONTINUE 



012R 

6R0 

CLOSE (UNIT>2) 


) 

0130 

p 

RETURN 




W 

c 

IF ERRORS OCCUR WHILE REASXNO THE INPUT FILE 



0131 

c 

5020 

URITE(lr5025> ( INNAME( I ) r I>1 > 16) 



0132 

5025 

FORMATdH r 'ERROR IN OPENINO FILE '»16AD 



0133 


80 TO 5040 



0134 

5030 

WRirEat503S)(PR08LM(ItJERROR)fI-lr3) 



0135 

5035 

FORMATdH » 'ERROR READING 't3A4f' DATA') 



0136 

5040 

WRITE (If*) 'PROGRAM TERMINATED' 



0137 


CLOSE (UNIT-2) 



0138 


STOP 



013R 


END 



i r 


A 


D-77 


13$24M3 


iO-JUN*tO 


PAOi 1 


F’OliTRMt IM«n.Uf V02-StC 
KITPUT.PtN /TRiitOCKI/tM 


0001 

0002 


0040 

0041 

0042 

0043 


0044 

0045 

0046 


C 

ccccccccccecccccccccccccccccccccccccccccccccccccccccccccccccec 

c 

C SUtROUTI»C RXTOUT 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C CALLfO BUILD 

c 

SUBROUTINE RXTOUT 

INCLUDE 'SYOtCONBLK.rTN/NOLXST' 

c 

C NON-COHMON ARRAY VARIABLES 
C 

LOeiCALSl INNANE<16) 

REM.44 PR0BLH<3f0) 

MTA INNAHE /'f ' . 'Y' » '0' » ' 5 ' »6*'X' * ' . ' f 'D' ► 'A' » 'T'»0*0/ 

BATA PROBLH /' SC'»'ALAR'»' 'f'UPLI'»'NK C'f'STEL't 

2 'UPLI'f'NK P'*'ATH8'»'UPLI'»'»«< C' » 'ITY' » 'DNLI' » 'NK C'f'STEL't 

3 'DNLI't'NK P't'ATHS't'DNLI't'NK C' t 'ITY' t 'TALK' t 'BACK' t ' '/ 

C 

C OPEN OUTPUT SCENARIO FILE 
C 

URITEdtS) 'ENTER NEU 6 CHARACTER NAME FOR THE SCENARIO FILE JUST 
2 CREATED' 

READ< 1 1 5001 1 ERR-5030 ) ( INNAHE ( I > 1 1 -5 1 10 > 

OPEN ( UNI T-2 1 TYPE- ' NEW ' t NAHE- 1 NNAHE t CARR I AOECONTROL- ' L I ST ' t 


2 ERR-5020) 

C 

C HEADER RECORD 
C 

0047 JERROR-1 

004S WRITE(2t5001tERR-5030> (TITLEd > t I-l t72) 

0047 5'>0l F0RMAT<72Al) 

C 

C NUHBER OF COST ELENENTSt ZNDEXEStCITIEStPATHStCOST ALLOCATION 0R6S 
C 

0050 URITE(2tS002tERR-5030> NUELEHtNDELEHtNUINDXtNDINDXt NUCXTYt NDCITYt 

2 NUPATHtNDPATHtNUNORO 

0051 5002 FORMAT (914) 

C 

C ALL OTHER SCALARS 
C 

0052 WRITE < 2 1 5003 1 ERR-5030 > DDDCPH t DDDINS t DDDLE 8 1 EQPLIF t PVTLES t PVTFIX t 

2 PUTINS t PUTMIL t DISCNT t TLKCAP r WATINS t WATLES 

0053 5003 F0RMAT<F5.2t2F6.2tF5.lt3F7.2tF6.3tF5.ltF6.2tF7.2tF8.2) 

0054 WRITE < 2 1 5050 1 ERR-5030 ) WATMAX t WATCPH t ( 8ANDAD < I ) 1 1- 1 1 4 ) 

0055 5050 F0RMAT(2F8.2t4F12.2) 

C 

C COST ALLOCATION ORGANIZATION NAMES t IF APPLICABLE 
C 


0056 


IF(NUMORG.Ea.O) GO TO 510 

0057 


LI - 1 

0058 

501 

L2 ' MIN(NUM0RGtL143) 

0057 


WRI TE ( 2 1 5004 1 ERR-5030 > ( ( 0R6NAM < 1 1 J > t J- 1 1 20 ) r I -LI t L2 > 

0060 

5004 

FORMAT (4<20A1>> 


D-78 




13t2«t43 


lO-JUN-iO 


PAOf 2 



FORTRAN XV'ALUt M92-81C 
RITWT.PTN /TRiU.OCKt/VR 

OOAl LI • L2 T 1 

0042 IF <L1.LC.NUH0R0) SO TO SOI 
C 

C UPLIMC COST INOCX NAMES AND COST ALLOCATION WEIOHTS 
C 

0043 SIO IF (mJINSX.OC.S) 

2 klRITE(2fS005tERR>5030) < (UCINDX(I> J) » J>lf S) • 1>2>NUINDX) 

0044 5005 FORMAT <5(8A1>1X)> 

0045 IP (NUM0R0.6T.0) URITE(2>5004»CRR>5030) (UDXUNT(I)fI«i>NUINDX) 

0044 5004 F0RMAT<4P7.3> 

C 

C UPLXMC COST CLEMENT DATA 
C 

0047 JERR0R>2 

0045 DO 530 I - ItW^LEN 

0049 UNITE <2» 5007 >ERR>5030) <UCSCOD(It J>>J-t»2)f <UC8NAM<If J)>>l>20>t 

2 UCSMIN<I)»<UC8DAT<I»trK)*K>l>4> 

0070 5007 FORMAT(2Al>IXf2OAt>7Xi5P10.3) 

0071 IF (NUINDX.EQ.l) SO TO 540 

0072 J - 0 

0073 518 J • J * 2 

0074 IF <J - NUINDX) 520t525fS30 

0075 520 JJ ■ J 4 1 

0074 WRITC(2>5008fERR>5030> (UC8DAT<If J>K) >K«lf 4> > <UC8DAT( I > JJfK> » 

2 K-lf4> 

0077 5008 F0RMAT<8F10.3> 

0078 80 TO 518 

0079 525 URITE(2f5008»ERR>5030) <UCSDAT(If J>K)tK>lf4) 

0080 530 CONTINUE 

C 

C UPLINK PATH DATA 
C 

0081 JERROR-3 

0082 DO 540 I>lfNUPATH 

0083 UR I TE ( 2 r 5009 > ERR-5030 > < UPTHNM <I>J)rJalt20>f( UCSPTH ( J > I > t J> 1 f 

2 NUCLEM) 

0084 5009 FORMAT (20Ali5Xr 1511) 

0085 540 CONTINUE 

C 

C UPLINK CITY DATA 
C 

0084 JERR0R«4 

0087 IF <NUCITY.EO.O) 00 TO 555 

0088 DO 550 I>lrNUCITY 

0089 URITE(2>5010tERR-5030) <UCTNAM<I> J> • J>1>14) f (USTCODdt J> » J«l>2) > 

2 UCIT YU ( I > . UC I T YH ( I ) » UCTCHN < I ) t UCTORO < I > f < UPTHC Y ( J » I ) . J» 1 . NOP ATH ) 

0090 5010 F0RMAT(14AlrlXf2Alf214f2I2>5Xrl0Il) 

0091 IF (NUINDX. OT.l) URITE(2»5008«ERR-5030) (UCTXVLd > J) f J>1 »NUINDX-1 > 

0092 550 CONTINUE 

C 

C DOUNLINK COST INDEX NAMES AND COST ALLOCATION WEIGHTS 
C 

0093 555 JERROR-5 

0094 IF (NDINDX.0E.2) 

2 URITE(2»5005tERR>5030) ( (DCINDXC I . J> t J-1 .8) > I>2>NDINDX) 

0095 IF (NUM0R6.6T.0) URITE(2.5006rERR>5030) (DDXUHT(I) .I-l.NDINDX) 



D-79 


- ■ 


13i3«i43 


tO>^>0O 


f^ASI 3 


ratTRM4 V02-S1C 

RITOiT.rTN /TRIU.3CKS/IMI 


C 

C 0(HN«.IM< COST eWEHENT DATA 
C 


00f« 


DO 430 1 « l^NDELCH 

0097 


URXrC C 2 » 5007 1 ERR-8030 > ( DC8C0D (I » J > > J- 1 > 2 ) > < DCSNAH < I » J ) » J- 1 » 20 ) > 
2 0C8HIN<I)><DC8DAT<I>lrK>tKal»4) 

ODM 


IP (NDIMDX.EO.l) 80 TO 440 

OOff 


j ■ 0 

DtOD 

418 

J ■ J 7 2 

otoi 


IP U “ NDINDX) 420«428>430 

0102 

420 

J4 ■ J + 1 

0103 


kffiXTE(2>S008»ERR>5030><OC8DAT(lf4tK>>K>l*4>>(DCSOAT<ItJJ>K)> 
2 K«l»4) 

0104 


SO TO 418 

0103 

428 

HRXTC(2f5008>ERR>S030) (DC8DAT(X> 4>K> •K>1>4) 

0104 

430 

^ti»mn: 


w 

c 

DOtN«.XNK PATH DATA 

0107 

w 

JEM«(HN4 

OIM 


DO 440 I>1»NDPATH 

0107 


URXTE < 2 > 5007 1 ERR-5030 > ( DPTHNH ( 1 1 J > > J> 1 > 20 > » ( DCSPTH < J > I ) 1 4- 1 » 
2 NKUEH) 

0110 

440 

CONTINUE 


w 

C 

c 

DOWNLINK CITY DATA 

0111 

w 

^RROR-7 

0112 


IP (NDCITY.EQ.O) 80 TO 470 

0113 


DO 450 I«1>N0CITY 

0114 


MtITE ( 2 > 5010 > CRR-S030 ) ( DCTNAH (Xt4>f4*ltl4>t( 08TC0D< I f 4 ) r 4« 1 f 2 > * 

2 DCITYV ( I > » DCI TYH < I) f DCTLVL ( I > » DCT0R8 < I > » < DPTMCY < 4 f I ) » 4-1 » NDPATH > 

0115 


IP (NDINDX.OT.U WRITE (2f 5008 >ERR-5030) (DCTXVL( I>4) >4-1 >NDINDX-1 ) 

0114 

450 

CONTINUE 


w 

c 

TALKBACK INPORHATION 

0117 

w 

4ERR0R-8 

0118 


IP (NUCITY.EO.O) 00 TO 470 

0117 


DO 480 4>1>NUCXTY 

0120 


L2 - 0 

0121 

440 

U1 ■ L2 7 1 

0122 


L2 * LI 7 12 

0123 


IP(LI.OT.NDCITY) 80 TO 480 

0124 


IP<L2.8T.NDCITY) L2-NDCITY 

0135 


UR I TE ( 2 > SOI 1 > ERR-5030 > ( T ALKDK (I>4)fl-L1>L2> 

0124 

5011 

PORHAT (13P4.1) 

0127 


60 TO 440 

0128 

480 

CONTINUE 

0127 

470 

CLOSE (UNIT-2) 

0130 

r 

RETURN 


w 

c 

c 

IP ERRORS OCCUR WHILE WRITINO THE OUTPUT PILE 

0131 

5020 

WRITC<1>S025> (INNAHE<l)>I-lf 14) 

0132 

5025 

PORNATdH > 'ERROR OPENING FILE '>14AD 


D-80 


FOKTIUM tV-FLUt V02-S1C 

ftirmjT.rrN /TftsM.ocKt/uft 


13I24M3 


10.jUM.t0 


m TO S040 

8030 MITia»8038MFfl0M.Hat^KR(m)*l't»3) 
S03S F0RHAT<1H t'iRROR HRITINO 'f3A4>' 04TA'> 
8040 WRITE (1>«) 'BUZt.OER TERHXNATCO' 

CLOSE <UNlT-2> 

8T0F 

END 


D-81 


rORTMN IV^M V92-Ste 13i3fl5t tO>JUN-t« ^A0E 1 

YItHO.rrN /TRm.OCKt/im 
c 

CCCeCCCCCCCCCCCCCCCCCCC«C(^CCCCCCCCCCCCKCCCCCCCCCCCCCCCCCCCC 

c 

C IUM«tMTI»« rCtMO 

e 

ccccccccccc^ccccccnccccccccccccccccccccccccccccccccccccccccc 

c 

C lYt tUILBt COST* MTN> CITY# KATCt NOMEI. 

c 

c 

C YEtM) DCTCRnXNEt IP THE REIPONtE TO A QUEITItW IS 'YES' 'NO' 

c w IN mm M<o SETS nm appnopriate plao - oi«.y the pinst 

C »«ANACTOi Tl« AESPONK It CMCKEO. 

c 




MWtMTZMI YESNO 

0002 


Il^im 'tYOiCOMSLK.PTN/WM.IST' 

M40 


YES^ > 3 

0041 


NEA0a»10fEAIN20) ZNMTA(l) 

0042 

10 

P(N»MT (Al) 

0043 


IP <INBATA(1).EQ.'Y') YEStNO ■ 1 

0044 


IP CINBATA<1).EQ.'N') YESSNO ■ 2 

004S 

20 

IP (YESSNO. EQ. 3) MtlTE (lf») 'ANSWER HOST BE 'YEt* OR 'NO*' 

0044 


RETURN 

0047 


END 


isssotss 


iO-JUN-tO 


PMt I 


rOKTMM IM'PLUI V02-S1C 
I^DtHm.PTN /TRiM.MKt/m 



c 

C CM.UEB irt COtTf MTHt CITY* KATE 
C 

c 

C DCTIRHINCt IF T»« RtIFONtE TO A CR^ITION II '(^UIM(' M 

C 'WMN«.IM(' OR IN ERROT ANO lETt TM AFFRf^IATE FUAO - »«.Y Tl« 
C FIRIT CHARACTER OF THE REIFONtE II CWCKCO. 

C 


lllii 

10 

luMtmfTiM: iiFwm 

INCUUSE 'IY0tC8HM.K.FTN/I^IIT' 

tIFFMM ■ 3 

l«A0(ltl0iERR>20) INDATAin 
F0RHAT(A1> 

0043 

0044 

0045 

20 

IF (INDATA(l).Ea.'U'> ■ 1 

IF (1NDATA<1>.EQ.'D') ■ 2 

IF (UFFWN. CO. 3> MITE <1»*> 'AHtUER HUfT IE ‘UF* OR 'DOWN*' 

0044 


RCTMN 

0047 


END 


13f3US2 




ptm. I 


PMtTMM XV-n.Ut V03-81C 
C09CMt<.rTN /TRtM.OCKt/IM 


0001 


0002 

0003 

M04 

0008 

000 * 


C 

ecccccccccccccccccc^Mccccccccccccccecceccccccccccecccccccccect; 

e 

C SUMKRJTtMf CO^«C 

c 

ccKCcececccccccccccccccccccccccccccccccccecccccccccccccccccccccc 

c 

C CAU.EO 8YS COfTf MTH# CXTYt RATE* NATWOt RM08T. EARTH 

C 

C COK»«( CHCCIC8 AN II^T A0AIN8T A LIST V AR(HIHCNT8 

C 

mmOUTim roDCNKU^«ARfIN]MTAf|i«(NlAR»CM»ARRfAOfXTN) 

C 

e ARMI«NT8t 

C iCINMt > NtmtCR fSr OMR«^TCRS XN XNRUT AR«N«NT 

C INDATA • ARRAY CONTAININO INRUT AROUHCNT 

C NCOI^ ■ MMKR W ROStXM^ UM.UCS 
C CHRAMI ■ ARRAY CINITAXNXI^ LIST ROSS IDLE VALUES 

C RMITN > ROfXTXINI XN T)« MMAY M«RE XI»UT AR8UNENT HATC»«D 

C A ROSSXSLI VALM. 

C 

INTEBIRS3 >«HM»NCO»^tROSITNtXfUflNMTCN 
L(NIXCM.«1 INMTA<l>»CHRAMt(NCONRR*l) 

C 

ROSXTN - 0 
M4ATCH ■ 0 
DO 20 I*1>NC(N«RR 


M07 M 10 J-lfNCMMt 

OOM IF (XNMTA<J).l«.CI^ARR(Xf JM 80 TO 20 


OOOf 

10 

CONTXNtM 

0010 


WMTCN ■ MMTOt 4 1 

0011 


ROSXTN ■ I 

0012 

20 

CONTXNW 


C 

c 

p 

USER'S RESROHSE CONTAINED 

0013 

& 

IF (NHATCH.OT.1) ROSXTN 

0014 


RETtN»( 

0018 


END 


TOO FEW CHARACTERS TO HM(E A UNXOUE NATCH 
■ -1 


0*84 


13:32:23 


lO-JUN-SO 


^Aoe 1 


PORTMN JW-PI.US <.»02-51C 
SCTTKK.rTN /TKliLOCKt/yK 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C SUII^OUTXNC OCTTER 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C SUiKOUTXNC calls: ccount 

c 


0001 

0002 

0040 

0041 

0042 


C CALLED »r: AAXN* COSTt PATH* CXTY> AATE> RDCOST. AATHODt MODEL 
C 

C THXS SUSftOUTXHC RETRIEVES THE NEXT ARGUMENT ON THE COMMAND LXNE 
C 

SUiROUTXNE GETTER 

INCLUDE 'SYO:COMiLK.rTN/NOLXST' 

L0GXCAL«1 SLANK* COMMA* SEMXC 

DATA SLANK /' '/* COMMA /'*'/* SEMXC /'<'/ 

DATA NSTART /!/ 

C 

C GET RXD OF LEADXNG SLANKS IN XNFUT ARGUMENT AND CLEAR AR6 ARRAY 
C 


0043 

0044 

0045 
0044 
0047 
0040 
004» 

0050 

0051 


0052 

0053 

0054 


NCHAR ■ 0 
CONTCD ■ 1 
DO 10 X > 1*00 
ARO(I) ■ OLANK 
10 CONTINUE 

DO 20 X>NSTART*00 

IF <INDATA(I) .NE.DLANK) GO TO 30 
NSTART ■ NSTART 
20 CONTINUE 

C 

C CASE WHERE ENTXRE LXNE IS EMFTY 
C 

CONTCD • 0 

NSTART > 1 

RETURN 


0055 

0054 


0057 

005S 


C 

C CHECK EACH CHARACTER 
C 

30 DO SO I>NSTARTi80 

IF (INDATA(I) .NE. SEMXC) GO TO 50 
C 

C SEMXCOLON ENCOUNTERED 
C 

NCHAR • I - NSTART 
IF (NCHAR. NE.O) GO TO 40 
C 

C IF CHARACTER COUNT IS ZERO 
C 


0057 


NCHAR ■ 1 

0040 


ARG(l) > SEMIC 

0041 


CONTCD • 0 

0042 


NSTART - 1 

0043 

C 

RETURN 

0064 

40 

NSTART • I 
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PORTRIW 

XV-PLUS V02-S1C 13:32:23 

10-. 'UN-80 


PA6E 2 

6CTTER.I 

FTN 

/tr:si.ock8/wr 




006S 


80 TO 90 





W 

c 

IP COfMA IS ENCOUNTCREO 




0066 

w 

so 

IF (INIMrAa>.NE.COHHA) 60 

TO 70 



0067 


NCHAR ■ I - NSTART 




0068 


R8TART ■ I 4 1 




0069 


IF <NCN6R.E0.0) 






2 liffiITE<lt«> 'NULL AR6UNENT 

SPECIFIED— IT 

UILL 

BE I6N0RED. 


w 

c 

SCAN REHAINOER OF LINE TO SEE IF THIS IS THE 

last ARMJHENT 

0070 

w 

M 60 J > NSTARTtSO 




0071 


IF <INOATA(J).l«. BLANK ) 

6C TO 90 



0072 

60 

C(MTIMS 




0073 


CONTCD - 0 




0074 


NSTMtT ■ 1 




0075 


60 TO 90 





W 

c 

IF CHARACTER (OTHER THAN BLANK* 

COHHA. SENICOLON) 

ENCOUNTERED 

0076 

U 

70 

NCHAR > NCHAR T 1 




0077 


AR6(NCHAR) « INBATA(I) 




0078 

80 

f* 

CONTINUE 





W 

c 

END OF INPUT LINE REACHED 




0079 

w 

CONTCD > 0 




0080 


NSTART • 1 




0081 

90 

CALL CC0UNT(AR6* NCHAR) 




0082 


RETURN 




0083 


END 
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PORTRAN IV-PLUS V02-51C 13 : 33 t SO lO-JUN-80 1 

CCOUMT.PTN /TR:SL0CK8/Mt 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C «IBR«ITINf CCfNJNT 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C CAUXD by: setter 

c 

C THIS SIWHMTIIC COUNTS CHARACTERS IN AH INPUT ARStN«ENT (MTIL 
C IT SEES A SEMICOLON OR COMMA. TRAILIN6 BLAMCS ARE IGNORED. 

C 

0001 SUMMlUTnC Ca»WT (AROtlCHAR) 

0002 LOGICALAl AR6 ( 1 ) . COMMA > BLANK . SEMIC 

0003 INTE6CR«2 »«HMt 

0004 DATA CtNMA / t’/f SQflC /'$'/> MJWIK /' V 

C 

C AROUieNTS: 

C AR6 • AI^NCNT to be CtMNTED 

C NCHAR « NUMBER OF CHARACTERS (COMPUTED) 

C 

0005 W} 20 I - lr24 

0006 IF (AR6(I).ES.BLANK) GO TO 20 

0007 IF (ARG(I>.NE. SEMIC. AND. ARGID.NEvCGMMA) GO TO 10 

0008 rCHAR ■ I - 1 

0009 RETURN 

0010 10 NCHAR > I 

0011 20 CtmTlNUE 

0012 RETimN 

0013 END 
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F0RTRW4 IV-PUU8 W02-51C 13:34:17 lO-JUN-80 PAGE 1 

0I8APR.FTN /TRtBLOCKS/UR 



C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

<* 


c 

SUBROUTINE DZSARR 



ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

r 


C C^LC& by: cost* PATHt CITY 
r 



c 

THIS SUBROUTINE DELETES A COST ELEHENTt 

PATH( t» CITY FROM THE 


c 

c 

DATA BASE. ARGUMENTS : 



c 

CODE*CODE INDICATING TYPE OP DELETION 



c 

1>UPLINK COST ELE^ffiNT 

2«00UNLINK COST ELEMENT 


c 

3-UPLIMC PATH 

4«D(Mm.INK PATH 


c 

5^LINK CITY 

4-DOUNLINK CITY 


c 

r 

INDEX«POSITION IN ARRAYS TO BE DELETED 


0001 

w 

SUBROUTINE DISAPR( CODE (INDEX) 


0002 


INCLUDE 'SYOrCOMBLK.FTN/NOLIST' 


0040 


INTEQERS2 CODE* INDEX 


0041 


LOGICAL*! BLANK 


0042 


DATA BLANK /' '/ 


0043 

w 

GO TO (100>200(300(400>S00*400)t CODE 


w 

C 

UPLINK COST ELEKNT 


0044 

100 

IF (INDEX. EG. NUELEM) GO TO 190 


0045 


11 - INDEX 4 1 


0044 


DO 110 K«l(4 


0047 


DO 110 J>1(NUINDX 


0048 


DO 110 I«I1> NUELEM 


0049 

110 

UCSDAT(I-1>J»K) - UCSDATCIfJfK) 


0050 


DO 120 I-Il (NUELEM 


0051 

120 

UCSMIN(I-l) - UCSMIN(I) 


0052 


DO 140 I > 11 (NUELEM 


0053 


DO 130 J > 1(2 


0054 

130 

UCSC0D(I>1( J) > UCSCODd(J) 


0055 


DO 140 J - 1(20 


0054 

140 

UCSNAM(I>1(J) > UCSNAMd(J) 


0057 


DO 150 J«1(NUPATH 


0058 

150 

UCSPTHd-l(J) ■ UCSPTHd(J) 


0059 

140 

CONTINUE 


0040 

190 

UCSC0D(NUELEM(1) ■ BLANK 


0041 


UCSNAM ( NUELEM (1) - BLANK 


0042 


NUELEM - NUELEM • 1 


0043 

f* 

RETURN 



w 

c 

p 

DOWNLINK Cl'ST ELEMENT 


0044 

200 

IF (INDEX. EG. NDELEM) 60 TO 290 


0045 


11 > INDEX -f 1 


0044 


DO 210 K>1(4 


0047 


DO 210 J*1(NDINDX 


0048 


DO 210 I-Il (NDELEM 



D-08 


FORTRAN IW-PLU8 W02-S1C 
DI8AFR.FTN /TRt»LOCKS/yR 


13:34tl7 


iO*JUN*80 


0089 

0070 

210 

^S8AT(X>ltJtK) • 0CS0AT<ltJtK> 
DO 220 I«I1>N0EL£H 

0071 

0072 

0073 

220 

1^HIN<1-1} • I»SNXN<I) 
00 240 X ■ XlfNDEUEH 
00 230 U - li2 

0074 

0075 

230 

OCSCOD(X-1>J) - DCSCODdtJ) 
DO 240 J » lt20 

0074 

0077 

240 

OCSNAn(X>l>J) - OCSNAM<X*U) 
M 250 J-1>N1»ATH 

0078 

250 

OCSRTM<X-ltJ) - OCSFTN(I>J) 

0079 

240 

CONTIWIE 

0080 

0081 

0082 

0083 

290 

C 

c 

0CSC0D(NDCLEH>1) ■ BLANK 
0CSNAH(N0ELEH>1> • M.A>m 
NX^LEH • NI^EH - 1 
RETURN 

UPLINK PATH 

0084 

0085 
0084 
0087 

300 

XF (INDEX.EQ.NUPATH> 60 TO 390 
XI « XN0EX41 
DO 340 I>XlrNUPATH 
DO 310 J-lfNUELEH 

0088 

0089 

310 

UCSPTH(J»I-1) - UCSPTH<J.I) 
DO 320 J>lrNUCXTY 

0090 

0091 

320 

UPTHCY(l-lfJ) - UPTHCY<X»J) 
DO 330 J«lf20 

0092 

330 

l^THMHa-l»J) ■ UPTWH<I»J) 

0093 

340 

CONTINUE 

0094 

0095 
0094 

390 

C 

c 

UPTHNN<NUPATH»1) » BLANK 
NUPATH ■ NUPATH-1 
RETURN 

DOWNLINK PATH 

0097 

0098 

0099 

400 

IF (INDEX. EQ.NDPATH) 60 TO 490 
11 • INDEX41 
DO 440 I-I1»NDPATH 
DO 410 J>lfNDELEM 

0101 

0102 

410 

DCSPTH(Jf I-l) - DCSPTH(J.I) 
DO 420 J-lfNDCITY 

0103 

0104 

420 

DPTHCY<I-lr J) • DPTHCY(X»J) 
DO 430 J-lr20 

0105 

430 

DPTHNH(I-1»J> ■ DPTHNM(IfJ) 

0104 

440 

CONTINUE 

0107 

0108 

490 

DPTHNM(NDPATH»1) « BLANK 
NDPATH • NDPATH-1 

0109 

RETURN 

C 

C 

C UPUINK CITY 
C 

0110 

0111 

0112 

0113 

C 

500 

IF ( INDEX .EG. NUCITY ) GO TO 
11 * INDEX 1 

DO 540 I • IltNUCITY 

UCITYV(I-l) - UCXTYV(I) 


FA6E 2 
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13S34S17 


lO-JUN-80 


PA8E 3 


PORTRAN 

tW-PLU8 W02-S1C 13S34S17 10-JUN 

DISARR. 

FTN 

/TR: BLOCKS/UR 

0114 


UCITYH<I-1) • UCITYH<I> 

0115 


UCTCHN<I-1) - UCTCHN<I> 

0114 


IF < NUH0R6 .6T. 0 ) UCT0R8<I-1> 

0117 


BO 510 Jol»16 

0118 

510 

UCTMAH<I-1»J) ■ gCTNAMdfJ) 

0119 


DO 520 J-1>NUINBX 

0120 

520 

UCTXVLd'lrJ) * UCTXVLdfJ) 

0121 


00 530 J-lt2 

0122 

530 

USTC00d-l>J) - USTCODdfJ) 

0123 


DO 540 J-1»NDC1TY 

0124 

540 

TAUKBK<Jd-l> - TALKBK(Jd) 

0125 


DO 550 J*ltNURATH 

0126 

550 

OPTHCY(Jd-l) ■ OPTHCY<J»I) 

0127 

560 

CONTINUE 

0128 

590 

UCTNAM(NUCITYtl} > BLANK 

0129 


NUCITY ■ miCITY-l 

0130 

C 

RETURN 


c 

C DOWHI.INK CITY 
C 

0131 

c 

600 

IF ( INDEX .EQ. NDCITY ) 80 TO 690 

0132 


11 - INDEX * 1 

0133 


DO 660 I>I1»N0CITY 

0134 


DCITYWd-1) - DCITYU<I) 

0135 


DCITYH<I-1> ■ DCITYH<I) 

0136 


DCTUVU<I-l) ■ DCTLVUd) 

0137 


IF ( NUM0R8 .GT. 0 > DCT0R8d-l) 

0138 


DO 610 J-lfl6 

0139 

610 

DCTNAHd-l>J) - DCTNAN<IfJ> 

0140 


DO 620 J>1>NDINDX 

0141 

620 

DCTXVLd-lfJ) * DCTXVL(I»J) 

0142 


DO 630 J-l»2 

0143 

630 

DSTC0D(I-1>J) > DSTCODdtJ) 

0144 


DO 64C; J«l, NUCITY 

0145 

640 

TALKBKd-lfJ) - TALKBKd»J) 

0146 


DO 650 J>1>NDPATH 

0147 

650 

DPTHCY( Jf I-l) - DPTHCY(Jd) 

0148 

660 

CONTINUE 

0149 

690 

DCTNAN(NOCITYf 1) ■ BLANK 

0150 


NDCITY • NDCITY-1 

0151 


RETURN 

0152 


END 


■ UCTORfid) 


• OCTORGd) 
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FORTR<»N IV-RLUS VC2-S1C 13:36:57 lO-JUN-80 PR8E 1 

RDCOST.RTN /TR.tUOCKS/UR 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C SUBROUTINE RDCOST 

C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C SUBROUTINE CALLS: GETTERt CODCHK 

c 

c called by: cost 
c 

C THIS SUBROUTINE READS IN AN INRUT AR6UHENT AND TESTS rOR A COST 
C ELEMENT CODE. 

C 


0001 


SUBROUTINE RDCOST 

0002 


INCLUDE 'SYOtCOMBLK.FTN/NOLIST' 

0040 

w 

READ (ItlOOO) (INDATA<I>»I«1>80) 

0041 

1000 

FORMAT <80A1) 

0042 


CALL GETTER 

0043 


IF (UPRDUN.EQ.l) CALL C0DCHK(2. ARGrMAXUCSrUCSCODrROSITN> 

0044 


IF (UPRDUN.EQ.2) CALL C0DCHK(2f AR6>MAXDCS>DCSCODrPOSITN) 

0045 


RETURN 

0046 


END 
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FORTRAN IW-RLUS 002-51C 
RATECK.FTN /TR : BLOCKS/UR 


13:37:56 


lO-JUN-80 


PAGE 1 


0001 


0002 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 


C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C SUBROUTINE RATECK 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C CALLED by: rate 

c 

SUBROUTINE RATECK < LOU* UP> XDAT) 

C 

C THIS ROUTINE CHECKS THE UALUE INDEXES FOR THE RATE NODULE 
C TO HAKE SURE THEY ARE IN RANGE. 

C 

C 

INCLUDE 'SYO:COHBLK.FTN/NOLIST' 

INTEGER«2 XDATfLOWfUP 
C 

POSITN-0 

IF ( XDAT .LT. LOU .OR. XDAT .GT. UP) GO TO 10 
POSITN-XDAT 
GO TO 20 
C 

10 URITE ( If# ) 'NUMBER OUT OF RANGE - PLEASE RETYPE' 

20 RETURN 
END 
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OB S 58 .*29 
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PORTRAN ly-PLUS V02-51C 
CTYCHK.PTN /TR J BLOCKS/WR 


C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C SUBROUTINE CTYCHK 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C CALLED by: CITY. HATMOD 

c 

C THIS SUBROUTINE WILL DETERMINE IF A CITY/ORGANIZATION PAIR EXISTS 

C AND IF SO. WILL RETURN THE INDEX TO THAT PAIR. ORGANIZATION WILL BE 

C IGNORED IF COST ALLOCATION HAS NOT BEEN SELECTED. 

C 

0001 
0002 

0040 

C 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 100 

0050 

0051 

0052 

0053 

0054 

0055 110 
C 

C MATCH FOUND 
C 


SUBROUTINE CTYCHK (POS.ORG) 

INCLUDE 'SYO:COMBLK.FTN/NOLIST' 

INTEGER920RG.NMATCH. LIMIT. P0S.P0S2 

POS « 0 
ORG > 0 
P0S2-0 
NMATCH - 0 

IF (NCHAR.EQ.l.OR.ARG(NCHAR-l).NE. '/') GO TO 100 
ORG - AR6(NCHAR)-48 

IF (ORG.LE.O.OR.ORG.GT.NUMORG) GO TO 1001 
NCHAR ■ NCHAR-2 

IF(ORO.EO.O.AND.NUMORG.GT.O) GO TO 1000 
IF (UPPDWN.EQ.l) LIMIT^NUCITY 
IF (UPPDWN.ECI.2) LIMIT-NDCITY 
DO 130 I-l. LIMIT 
DO 110 J-1. NCHAR 

IF (UPPDUN.EQ. 1 . AND.AR6( J) .NE.UCTNAM< I . J> .OR. 

2 UPPDWN.EQ.2.AND.ARG<J>.NE.DCTNAM(I.J)) go to 130 

CONTINUE 


0056 


P0S2 - I 


0057 


IF ( ORG . EG . UCTORG ( I ) . AND . UPPDUN . EG . 1 . OR . 



2 0RG.EQ.DCT0RG(I).AND.UPPDUN.EG.2) GO TO 120 

005E 


GO TO 130 


0059 

120 

NMATCH-NMATCH + 

1 

0060 


POS - I 


0061 

130 

p 

CONTINUE 


0062 


IF (NMATCH. GT.l) 

WRITE (l.*> 'SPECIFIED CITY NOT UNIGUE 



2RE INFORMATION' 


0063 


IF (NMATCH. GT. 1 ) 

POS— 1 

0064 


IF (NMATCH.EQ.l) 

ORG-0 

0065 


IF (NMATCH. EG. 0) 

P0S-P0S2 

0066 


RETURN 


0067 

1000 

WRITE (1.*) 'AN 

ORGANIZATION CODE MUST BE SPECIFIED' 

0068 


GO TO 1002 


0069 

1001 

WRI.TE (l.«) 'INVALID ORGANIZATION CODE' 

0070 

1002 

P0S»-2 


0071 


RETURN 


0072 


END 



ENTER MO 
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FORTRAN IV-PUU8 W02-51C 13S40SX1 

yANDH.FTN /TR ; BLOCKS/WR 


0001 

0002 


0003 

0004 

0005 


0006 

0007 

oooe 


0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 


c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C SUBROUTINE UANDH 

c 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC2 

c 

C CALLED by: CITYt NOOUP> MODDN* EARTH 
C 

C THIS SUBROUTINE CONVERTS LATITUHE/LONOITUDE TO BELL SYSTEH V AND 
C H COORDINATES (PROVIDES A SIMPLER MEANS OF ESTABLISHING THE 
C DISTANCE BETWEEN TWO CITIES). 

C 

c parameters: m - negative of the latitude in ddmm format 

C N - LONGITUDE IN DDDMM FORMAT 

c 

SUBROUTINE VANDH(MtN) 

INTEGER«4 I»J 
C 

C COMPUTE *A* WHICH IS THE LATITUDE IN RADIANS AND FRACTIONS OF A 
C RADIAN 

C 

!■< <-l)*M)/100 
J»(M+I*100)*(-1> 

A-FLOAT ( I ) /57 . 29S8+FL0AT ( J > /3437 . 75 
C 

C COMPUTE ’B* WHICH IS THE LONGITUDE IN THE SAME UNITS 
C 

I-N/100 

J>N-I»100 

B-FLOAT ( 1 ) /57 . 2958+FLOAT ( J ) /3437 . 75 
C 

C THE FOLLOWING CALCULATIONS ARE A GEOMETRIC APPROXIMATION TO A 

C BELL SYSTEM PROPRIETARY ALGORITHM. A KNOWN POINT IN BOTH SYSTEMS 

C IS USED AS A REFERENCE (IN THIS CASE. NEW YORK CITY WHICH HAS 

C A V AND H OF 4995.1408). SPHERICAL TRIGONOMETRY IS USED TO 

C DETERMINE THE AZIMUTH AND DISTANCE TO THE UNKNOWN POINT, 

r; AZIMUTH AND DISTANCE FORM A VECTOR USED TO COMPUTE THE V AND H 

C COORDINATE. 

C 

ALPHA-0 . i J2786FS IN ( A ) +0 . 757542*C0S ( A ) *COS ( 1 . 29 1 44-B ) 

THETA- ( SIN ( A ) -ALPHA40 . 652786 ) / ( 0 . 757542»SQRT ( 1 . -ALPHA4ALPHA ) ) 
THETA-ACOS( THETA) 

IF ( B . GT . 1 . 29 1 44 ) THETA-6 . 283 1 85-THETA 
BETA-2. 22013-THETA 
DIST-12510.25*AC0S( ALPHA) 

M-IFIX(499S.-DIST»SIN(BETA) ) 

N-IFIX(1408.-DIST«C0S(BETA) ) 

RETURN 

END 
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FORTRAN IV-RLUS W02-51C 
MATM06.FTN /TRS 6L0CK8/UR 


13.*40:J0 


ie-JUN-80 


RAOE 1 


0001 

0002 

0040 

0041 


0042 

0043 

0044 

0045 
0044 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 


0055 

0054 

0057 

0058 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C SUfiROUTINE nATMO& 

c 

cccccccccccccccccccccccccccccccccccccccccccccrcccccccccccccccc :CCCCCCCC 
c 

C SUBROUTINE CALLS: OETTERf CODCHK* CTYCHK* RERRTR 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


CALLED by: COSTr RATH. CITY 

THIS subroutine CHANGES THE HATRICES OF I'S AND O'S. IT READS A 
LIST OF COST ELEMENTS. RATHS. OR CITIES. AND MAKES ARRRORRIATE 
CHANGES IN UC6RTH.DCSRTH.URTHCY. AND DRTHCY. ARGUMENTS: 


CODE-TYRE OF CHANGE 

1- READ URLINK COST ELEMENTS. 

2- READ DNLINK COST ELEMENTS. 

3- READ URLINK RATHS. 

4- READ DNLINK RATHS. 

5- READ URLINK RATHS. 

4-READ DNLINK RATHS. 

7- READ URLINK CITIES. 

8- READ DNLINK CITIES. 


modify cost ELEMCNT/RATH MATRIX 
MODIFY COST ELEMENT/PATH MATRIX 
MODIFY COST ELEMENT/RATH MATRIX 
MODIFY COST ELEMENT/RATH MATRIX 
modify PATH/CITY MATRIX 
MODIFY path/city MATRIX 

modify path/city matrix 
modify path/city matrix 


ONOFF-1 OR 0. depending ON WHETHER THE MATRIX IS TO BE SET ON OR OFF 
MODROS-ELEMENT IN THE MATRIX WHICH IS NOT BEING READ IN 

SUBROUT I NE MATMOD ( CODE . ONOFF . MODROS > 

INCLUDE 'SYO:COMBLK.FTN/NOLIST' 

INTE0ERF2 MODROS . CODE . ONOFF > R08 . 0R6 


C 

C 

C 

100 

105 


GO TO (100.100.200.200.200.200.300.300). CODE 


COST ELEMENTS SPECIFIED 


'ENTER COST ELEMENT CODES. 
(INDATA(I). 1-1.80) 


ALL. OR « 


170 

C 

C 

C 

180 


IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 


!) .EQ. 'L' .AND.ARGO) .EO. 'L' ) GO TO 190 


WRITE (l.«) 

READ (1.900) 

CALL GETTER 

IF (ARO(l) .EQ. ' I ' ) RETURN 
IF (ARG(1> .EQ. 'A' .AND.ARGC 
(NCHAR.EQ.O) GO TO 170 

(CODE.EQ.l) CALL C0DCHK(2.ARG.MAXUCS.UC$C0D.P0SITN) 
(C0DE.EQ.2) CALL C0DCHK(2.ARG.MAXDCS.DCSC0D.P0SITN) 
(ROSITN.EQ.O) 60 TO 180 

(CODE.EQ.l) UCSRTH(ROS I TN. MODROS) - ONOFF 
(C0DE.EQ.2) DCSPTH(R0SITN. MODROS) - ONOFF 
(CONTCD.EQ.O) 60 TO 100 
(CONTCD.NE.O) go to 1C5 


IF ERRORS HAUE OCCURRED 

WRITE (l.«) 'INVALID COST ELEMENT CODE' 
WRITE (l.«) 'VALID COST ELEMENTS ARE... 
CALL REPRTR(9.l) 

60 TO 100 
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RAOe 2 


0059 

190 

DO 

195 I-1*NCLEM(UPPDUN> 

0060 



IF (CODE.CO.l) UC8PTH(I*MODP08)*ONOFF 

0061 



IF (C0DE.EQ.2) DCSPTH(I*m0DP08)-0N0FF 

0062 

195 

continue 

0063 

r 

RETURN 


w 

c 

g 

PATHS SPECIFIED 

0064 

200 

URITE (1*«) 'ENTER PATH NAMES* ALL* OR *' 

0065 


READ(1*900) <INDATA<I)*I>1*80) 

0066 

205 

CALL GETTER 

0067 


IF 

(AR0(1>.EQ.'I'> RETURN 

0068 


IF 

(AR6<1 ) .EO. 'A' .AND.ARG(2) .EO. 'L' .AND.AR6<3) 

0069 


IF 

(NCHAR.EQ.O) GO TO 270 

0070 


IF 

(UPPDUN.EQ.l) C**LL C0DCHK(NCHAR*ARG*MAXUPA* 

0071 


IF 

(UPPOUN.i:0.2> CALL C0DCHK(NCHAR*ARG*MAXDPA* 

0072 


IF 

(POSITN.EQ.O) GO TO 280 

0073 


IF 

(POSITN.LT.O) 80 TO 290 

0074 


IF 

<C0DE.E0.3) UCSPTH(M0DP0S*P0SITN) ■ ONOFF 

0075 


IF 

(C0DE.EQ.4) DCSPTH(M0DP0S*P0SITN) - ONOFF 

0076 


IF 

(CODE.E0.5) UPTHCY(P08ITN*M0DP0S> ■ ONOFF 

0077 


IF 

(C0DE.EQ.6) DPTHCY(POSITN*MODPOS> ■ ONOFF 

0078 

270 

IF 

(CONTCD.EQ.O) GO TO 200 

0079 


IF 

(CONTCD.NE.O) 60 TO 205 


c 

C 

IF ERRORS HAVE OCCURRED 

0080 

w 

280 

WRITE (1**) 'PATH DOES NOT EXIST. VALID PATHS 

0081 


CALL REPRTR(3*1) 

0082 


GO 

TO 200 

0083 

290 

URITE (1**) 'SPECIFIED PATH NOT UNIQUE - ENTER 

0084 


GO 

TO 200 

0085 

295 

DO 

297 I«1.NPATH<UPPDUN> 

0086 



IF (C00E.EQ.3) UC8PTH(M0DP0S*I)«0N0FF 

0087 



IF <C0DE.E0.4> DCSPTH(MODPOS*I)»ONOFF 

0088 



IF <C0DE.EQ.5) UPTHCY( I *MODPOS>-ONOFF 

0089 



IF (C0DC.EQ.6) DPTHCY(I*MODPOS)»ONOFF 

0090 

297 

CONTINUE 

0091 


RETURN 


0092 

0093 

0094 

0095 

0096 

0097 
0099 

0099 

0100 
0101 
0102 

0103 

0104 


'L') eo TO 295 


C 

c 

c 

300 

305 


370 


CITIES SRECIFIEIi 

URITE a*»> 'ENTER CITY NAMES* ALL* OR >' 

REA0<1*900) (INliATA(I>*I«l*80( 

CALL BETTER 

IF (ARG(1 > ,E0. ' t ' ) RETURN 

IF (ARG<1 ) .EQ. 'A' .AND.AR8(2) .EO. 'L' .AND.ARGC3) .EQ. 'L' ) 60 TO 390 
IF ;NCHAR.EQ.0) 60 TO 370 
CALL CTYCHK<r-OSITN*ORO> 

IF (ROSITN.EQ.O) GO TO 380 
IF (FOSITN.LT.O) go to 370 
IF (NUMORC.CT.O.ANIi.ORG.NE.O) 60 TO 380 
IF (COOE.ECI.7) UFTHCY<MOriROS.POSITN) ■ ONOFF 
IF (COI'E.EQ.8) DPTHCY<MOIiPOS*FOSITN) • ONOFF 
IF (CONTCD.EO'.O) 60 TO 300 
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OiOS IF (CONTCC.NC.O) 80 TO 305 

C 

C IF ERRORS HAVE OCCURRED 
C 


OlOA 

380 

WRITE <!.*) 'CITY DOES NOT EXIST' 

0107 


WRITE (lf«) 'OAUIO CITIES ARE...' 

0108 


CAUL RERRTR(lO.l) 

0109 


80 TO 300 

0110 

390 

00 398 >1*NCITY(URP0WN» 

0111 


IF <C00E.E0.7) UPTHCY<MODROSf I>-ONOFF 

0112 


IF (C00E.EQ.8) DPTHCrcnOOPOStD-ONOFF 

0113 

398 

CONTINUE 

0114 

f* 

RETURN 

0118 

900 

F0RHAT(80A1) 

OllA 


END 
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:o-juN-eo 


^■AOE 1 


P'OR'TftAN IV-4'LUI W02-5iC 

RCM’TR'.PTN /tr;h.ock*/hr 


0001 

0003 

0040 

0041 

0042 

0043 

0044 

0045 


0044 


0047 

0048 
004? 

0050 

0051 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C SU8l(0UTINe RE?RTR' 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C CALLEO tr: COST. PATH. CITY. RATE* HATHOI'. HOI'Et . (lOPUP. dOODN 

c 

C THIS SU8R0UT1NE CONTAINS THE REPORT PORNATS USEt* IN THE HOOEL 

c 

SUfROUTiNE RBPRTR (REPTYP. POS) 

INCLUDE 'SYOSCONSLK.PTN/NOLIST' 

INTEBER42 REPTYP. P0S.|iLANK.ST4ft.0UTARR(30) 

REAL44 PER. CTYPE(4). LINK. UPD0UN(2) 

DATA PER /'PER '/. DLANK /' V. STAR /' *'/. LINK/'LINK/ 
DATA UPDOUN/' UP'.' DOWN'/ 

DATA CTYPE /'CAP '.'INS '.'LES '.'ONA '/ 

C 

00 TO (1000. 2000. 3000.4000. 5000. 4000. 7000. 8000.9000.10000). 
2 REPTYP 
C 

1000 IP (UPPDWN.EQ.2) GO TO 1500 
C 

C UPLINK COST ELEMENT REPORT 
C 

WRITE (3.1400) (UCSCOD(POS.J) .J-1 .2) . (UCSNAH(POS.J) >J-1 .20) 
1400 PORHAT (IHO.'DATA POR cost ELEHENT '.2A1,' — ',20A1> 

IP (NUINDX.0E.2) WRITE (3.1410) ( PER . 1 »2 .NUINDX ) 

1410 PORHAT (1H0.15X.5(7X.A4) ) 

WRITE (3.1420) ((UCINDX(I>J)tJ«l.B).I-l.NUINDX) 


0052 1420 

0053 

0054 

0055 14'^0 

0054 1>'40 

0057 

0058 1470 

0059 

C 

C 

c 

0040 1500 

0041 

0042 

0043 

0044 

0045 1750 

0044 

0047 

C 

c 

c 

0048 2000 

0049 

0070 1800 

0071 


PORHAT (IH .4X.4(3X.8A1 ) ) 

•;RITE (3.*) ' ' 

DO 1450 K-1.4 

WRITE (3.1440) CTYPE(K). ( UCSDAT ( POS . J .K ) . J«1 .NUINDX ' 

PORHAT (IH .A4.4P11.2) 

WRITE (3.1470) UCSHIN(POS) 

PORHAT (IH .'HINIHUH LEASE COST »'.P9.2/) 

60 TO 99499 

DOWNLINK COST ELEHENT REPORT 

WRITE (3.1400) (DCSCOIKPOS. J>.J"1.2) . (DCSNAH(POS. J) . J-1.20) 
IP (NDINDX.0E.2) WRITE (3.1410) (PER. 1 «2 .NDINDX ) 

WRITE (3.1420) ((IiCINDX(I.J).J»l.e>.I«l.NDINDX) 

WRITE (3.4) ' ' 

DO 1750 K-1.4 

WRITE (3.1440) CTYPE(K). ( DCSDAT ( POS . J • K > . j-1 . NDINDX ' 

WRITE (3.1470) DCSHIN(POS) 

00 TO 99999 

HATRIX OP uplink COST ELEHENTS ASSOCIATED WITH EACH PATH 

IP (UPPDWN.EQ.2) 00 TO 2500 
WRITE (3.1800) UPD0WN( 1 ) .LINK 

PORHAT (1H0.''.1H .'HATRIX OP COST ELEHENTS AND e AThS-- ' . 2A4 ) 
WRITE (3.1900) ( (UCSCOIK I . J) . j-i .2) . I-l .NUELEH) 
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0072 

1900 

FORMAT <lH0F20Xtl5<lXF2Al) ) 

0073 


DO 1600 J«1fNUPATH 

0074 


DO 1590 1«1fNUELEM 

0075 


OUTARR(I) - BLANK 

0076 


IF CUCSPTHCIfJ) .EQ. l) OUTARR(I) - STAR 

0077 

1590 

CONTINUE 

0078 


WRITE <3f1910) (UPTHNM<JfK)fK*1f20)f(0UTARR<I)fI»1fNUELEM) 

0079 

1910 

F0RMAT<1H0f20A1f15(1XfA2) ) 

0080 

1600 

CONTINUE 

0081 


GO TO 99999 


u 

c 1 

MATRIX OF DOWNLINK COST ELEMENTS ASSOCIATED WITH EACH PATH 

0082 

c 

2500 

WRITE (3f1800) UPD0WN(2> fLINK 

0083 


WRITE <3f1900) ( (DCSC0D< I f J) f J«1 f2> f I»1 fNDELEM) 

0084 


DO 2600 J-1fNDPATH 

0085 


DO 2590 I«1fNDELEM 

0086 


OUTARR(I) - BLANK 

0087 


IF (dcspth(IfJ).eq.i) outarr(I) * star 

0088 

2590 

CONTINUE 

0089 


WRITE <3f1910) (DPTHNM( JfK) fK=1 f20 ) f C0UTARR( I ) f 1=1 fNDELEM) 

0090 

2600 

CONTINUE 

0091 


GO TO 99999 


C 

C LIST OF UPLINK PATH NUMBERS AND NAMES 


C 


0092 

3000 

IF (UPPDWN.EQ.2) GO TO 3500 

0093 


WRITE (3f3010) 

0094 

3010 

F0RMAT(1H0f/f' no. ' f6Xf 'PATH NAME'/) 

0095 


DO 3100 I«1fNUPATH 

0096 


WRITE (3f3090) I f (UPTHNM( I f J) f J=1 f20) 

0097 

3090 

FORMATdH fI3f5Xf20A1) 

0098 

3100 

CONTINUE 

0099 


GO TO 99999 


C 

C MATRIX OF DOWNLINK PATH NUMBERS AND NAMES 


C 


0100 

3500 

WRITE (3f3010) 

0101 


DO 3600 I»1fNDPATH 

0102 


WRITE (3f3090) I f (DPTHNMC I f J) f J«1 f20) 

0103 

3600 

CONTINUE 

0104 


GO TO 99999 


0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 


C 

C MATRIX OF UPLINK PATHS AND CITIES 
C 

4000 IF (NCITY(UPPDWN> .EQ.O) GO TO 4600 
WRITE (3»4010) UPDOWN(UPPDWN) rLINK 
-4010 FORMAT (1H0»/»1H , 'MATRIX OF PATHS AND CITIES— ' f 2A4 ) 
J1 = 1 

J2 » MIN(NPATH(UPPDWN) rl6) 

WRITE <3f4030) U»J=J1»J2> 

4030 FORMATCIHOf' CITY ' f 13X f 'ORC 'f16I3/> 

IF (UPPDWN.EQ.2) GO TO 4500 
DO 4080 I*1fNUCITY 
IF <UCITYV(I).EQ.-1> go to 4080 
DO 4070 J*J1fJ2 
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0116 


OUTARR(J) « BLANK 

0117 


IF <UPTHCY(J»1).E0.1> OUTARR(J) - STAR 

0118 

4070 

CONTINUE 

0119 


IF (NUNORC.eO.O) 

2 WRITE (3»4075) (UCTNANC I » J ) f J»1 r 16) » (OUTARRt J-Jl+1 ) . J«J1 » J2 ) 

0120 

4075 

FORMAT< '0' .16Alt7Xfl6(lX.A2) ) 

0121 


IF (NUMORG.GT.O) WRITE (3>4076) <UCTNAN( I • J > . Jsl > 16 > f UCTORG( I > > 
2 <0UTARR(J-Jl+l)»J-JltJ2> 

0122 

4076 

format: ' 0' f 16AltI5»2X»16(lX»A2) > 

0123 

4080 

CONTINUE 

0124 


60 TO 99999 


C 

C MATRIX OF DOWNLINK PATHS AND CITIES 


0125 

C 

4500 

DO 4580 I-l.NDCITY 

0126 


IF (DCITYV(I).EQ.-l) 60 TO 4580 

0127 


DO 4570 J-J1.J2 

0128 


OUTARR(J) > BLANK 

0129 


!!• (DPTHCY(Jf I) .EQ.l) OUTARR(J) » STAR 

0130 

4570 

CONTINUE 

0131 


IF (NUHORG.EQ.O) 

2 WRITE <3»4075) < DCTNAM< I f J ) r J*1 > 16) f (OUTARRC J-Jl+1 ) , J« J1 . J2 ) 

0132 


IF (NUMORG.GT.O) WRITE (3.4076) ( DCTNAM( I . J) . J»1 . 16) . DCT0R6( I > . 
2 (0UTARR(J-J1+1),J-J1,J2) 

0133 

4580 

CONTINUE 

0134 

r 

60 TO 99999 

0135 

W 

4600 

WRITE <3.*) 'THERE ARE NO CITIES IN THIS SEGMENT' 

0136 

C 

GO TO 99999 


C 

C UPLINK CITIES AND ASSOCIATED COST INDEX VALUES 
C 


0137 

5000 

WRITE (3.5050) UPDOWN(UPPDWN) . LINK 


0138 

0139 

0140 

0141 

5050 

FORMAT ( '0' .24X.2A4. ' COST INDEX VALUES'.///) 
IF (UPPDWN.EQ.2) GO TO 5500 
DO 5275 1-l.NUCITY 

WRITE (3.5060) (UCTNAM( I . J ) . J»1 , 16 ) . UCTORG( I ) 


0142 

5060 

FORMAT ( '0' .16A1. 13) 


0143 


WRITE (3.5075) ( (UCINDX (K. J) . J=1 . 8 ) .K-2 .NUINDX) 


0144 

0145 

0146 

5075 

FORMAT (6X.5( '<X.8A1) ) 

IF (UCITYV(I).EQ.-l) GO TO 5275 

WRITE (3.5100) (UCTXVLd. J). J-l.NUINDX-1) 


0147 

5100 

FORMAT (9X.F8.2.4(4X.F8.2) ) 

4 

0148 

5275 

CONTINUE 

J 

0149 

C 

GO TO 99999 



C 

C DOWNLINK CITIES AND ASSOCIATED COST INDEXES 
C 

i 

0150 

0151 

0152 

0153 

0154 

C 

5500 

DO 5800 I«1.NDCITY 

WRITE (3.5060) ( DCTNAM( I . J ) . J«1 . 16 ) . DCTORG( I ) 
WRITE (3.5075) ( ( DCINDX (K . J ) . J=1 . 8 ) .K»2. NDINDX) 
IF (DCITYV(I) .EO.-l) GO TO 5800 
WRITE (3.5100) ( DCTXVL: I.K) .K*l . (NDINDX-1 ) ) 



V 
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0155 5800 CONTINUE 

0156 GO TO 99999 
C 

c 
c 

C TALKBACK MATRIX BETWEEN UPLINK AND DOWNLINK CITIES 
C 
C 
C 

0157 6000 IF (NDCITY.EQ.O) GO TO 6600 

0158 WRITE (3»6050) ( <UCTNAM< I f J) » J-1 »3 ) » I-l >NUCITY ) 

0159 6050 F0RHAT(1H0> 'MATRIX OF TALKBACK REQUIREMENTS' •//> 

2 ' DOWNLINK CITY ORG 'f 10(2Xf3AD) 

0160 WRITE (3r6100> (UCTORGl I ) r I>1 >NUCITY > 

0161 6100 FORMAT (21Xrl0I5f/> 

0162 DO 6500 I-l.NDCITY 

0163 WRITE (3r6150) (DCTNAM( I • J > r J-1 > 16) t DCT0R6(I)> 

2 (TALKBK(I.J) .J«1»NUCITY) 

0164 6150 FORMAT (IH t 16A1 » I2t 3Xf 10( IX t F4 . 1 ) »///) 

0165 6500 CONTINUE 

0166 GO TO 99999 
C 

0167 6600 WRITE <3r») 'THERE ARE NO DOWNLINK CITIES IN THIS SEGMENT' 

0168 GO TO 99999 

C 

C 

C ORGANIZATION NAMES AND NUMBERS 
C 

0169 7000 IF <NUMORG.EQ.O) GO TO 7200 

0170 WRITE (3»7025) 

0171 7025 FORMAT ( '0' . 'ORGANIZATION NAMES AND NUMBERS'/) 

0172 DO 7100 I - IfNUMORG 

0173 WRITE <3»7050) <ORGNAM< I » J) . J«1 . 20 ) r I 

0174 7050 FORMAT < 1X» 20A1. 5X. ID 

0175 7100 CONTINUE 

0176 GO TO 99999 

C 

0177 7200 WRITE (3»*) 'THERE ARE NO ORGANIZATIONS IN THIS SCENARIO' 

0178 GO TO 99999 

C 

C AUXILIARY PARAMETERS 

C < 

0179 3000 WRITE (3.8010) DDDINS. WATINS. PUTINS. 

2 DDDLES. WATLES. PUTFIX. 

3 PUTMIL. 

4 DDDCPH. WATCPH. 

5 WATMAX. 

6 DISCNT.EQPLIF. (CTYPE(I). GANDAD(I). 1*1 . 4 > . TLKCAP 

0180 8010 FORMAT ( IHO./. 17X. 'AUXILIARY PARAMETERS'.//. 

2 ' talkback: ' .24X. 'DDD' .8X. 'WATS' .8X. 'PUT' ./. 

3 3X. 'INSTALLATION' . 13X .FIO . 2 . 2X . 2F10. 2/ 

4 3X.'ZER0 Ur GE CHARGE/MO. ' . 4X . FIO .2 . F12 . 2 .FIO . 2/ 

5 3X. 'MILEAGE CHARGE'. 33X. FIO. 2./. 

6 3X. 'HOURLY CHARGE'. 12X . FiO . 2 . 2X .FIO. 2/. 

7 3X. 'MAXIMUM CHARGE'. 23X. FIO. 2.//. 

8 ' amortization:'./. 
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REPRTR.FTN /TR:BL0CKS/WR 

9 3X» 'INTEREST RATE' i 7X.F5.2» ' PERCENT'./. 

A 3X. 'EQUIPMENT LIFE' .4X.F5.2. ' TEARS'.//. 

B ' GENERAL AND ADMINISTRATIVE'.'./. 4 <3X . A4 .5X .F12 . 2 . /> »// . 
C ' talkback capital expenditures: ' ./.2X.F10. 2. //> 

0181 GO TO 99999 

C 

C LIST COST ELEMENTS AND COST ELEMENT CODES 
C 


0182 

9000 

WRITE (3.9050) 

0183 

9050 

FORMAT ('O'. 'COST ELEMENT CODES AND NAMES'/) 

0184 


IF (UPPDWN.E0.2) GO TO 9300 

0185 


DO 9200 I-l.NUELEM 

0186 


WRITE (3.9100) (UCSC0D(I.J).J-1.2).(UCSNAM(I.J).J>1.20) 

0187 

9100 

FORMAT (1X.2A1.2X.20A1) 

0188 

9200 

CONTINUE 

0189 


GO TO 99999 

0190 

9300 

DO 9400 I-l.NDELEM 

0191 


WRITE (3.9100) (DCSC0D(I.J).J-1.2).(DCSNAM(I.J).J-1.20) 

0192 

9400 

CONTINUE 

0193 


GO TO 99999 


C 

c list cities/org and states 


0194 

C 

10000 

WRITE (3.10001) 

0195 

10001 

FORMAT ( '0' . 'CITY' . 13X. 'ORG' .2X. 'STATE'/) 

0196 


IF (UPPDWN.EQ.2) GO TO 10300 

0197 


DO 10200 I-l.NUCITY 

0198 


WRITE (3.10100) (UCTNAM(I.J).J*1.16).UCT0RG(I>. 



2 (USTCOD(I.J) .J»l .2) 

0199 

10100 

FORMAT (1X.16A1.2X.I1.4X.2A1) 

0200 

10200 

CONTINUE 

0201 


GO TO 99999 

0202 

10300 

DO 10400 I-l.NDCITY 

0203 


WRITE (3.10100) (DCTNAM(I.J).J-1.16).DCT0R6(I). 


2 (DSTCODd. J) . J-1.2) 

0204 

10400 

CONTINUE 

0205 

99999 

WRITE (3.*) ' ' 

0206 


RETURN 

0207 


END 
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MODEL INSTALLATION 


The Video Distribution System Cost Model has been developed for imple- 
mentation on a Digital Equipment Corporation PDP-11. The programs are 
written in extended FORTRAN IV and consist of 3 distinct modules — BUILD, 
MODEL, and EARTH. In addition, there are two data files — the earth 
terminal data base emd the sample scenario. 

The model is installed under Digital Equipment Corporation's RSX-llM 
operating system. The programs have been compiled by -jsing version 02-51C 
of FORTRAN IV-PLUS . Standard compiler switch settings may be used for all 
prograuns except EARTH and REPRTR, which require larger buffers for continua- 
tion lines (switch - /CO: 26.). 

Both BUILD and MODEL are overlayed tasks because of large memory 
requirements. The ODL files are as follows: 

BUILD. PPL 

. ROOT BUILD-REPRTR-SUBS-VANDH-* (READIN , COST , PATH , CITY , RATE , RITOUT ) 

SUBS : . FCTR YESNO-UPDOWN-CCOUNT-MATMOD-GETTER-CODCHK-CTYCHK-DISAPR-A0 

A0: .FCTR RDCOST-RATECK 

.END 

MODEL. ODL 

.ROOT MODEL-MODSUB-* ( READIN, MODUP,MODDN,MODTK) 

MODSUB: .FCTR YESNO-GETTER-CCOUNT-CODCHK-REPRTR-VANDH 

.END 

The disk swapping occurs at natural breaks in the programs and is not very 
noticeable . 
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The task build conunand files are as follows (it is assumed that all 
files are located on the system disk - SY0) ; 

BUILD.CMD 

BUILD/CP/FP«EUILD/MP 
UNITS * 3 
ACTFIL « 2 

ASG = TI:1, SY0:2,TI:3 

// 

MODEL.CMD 

MODEL/CP/FP = MODEL/MP 
UNITS * 3 
ACTFIL = 2 

ASG = TI:1, SY0:2,TI:3 

// 

EARTH.CMD 

EARTH/CP/FP = EARTH, READIN,MOVREC,VANDH,CODCHK 

/ 

UNITS = 3 
ACTFIL = 2 

ASG = TI:1, SY0;2,TI;3 

// 

The data files are named EARTH.DAT (earth terminal data base) and 
SAMPLE.DAT (sample scenario) . 
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APPENDIX F 


OPERATIONAL COSTS AND MANAGEMENT 
CONSIDERATIONS 


This appendix identifies the tasks and costs associated with maintain- 
ing and operating the Video Distribution System Cost Model. Cost estimates 
are included where feasible; they are based on the development effort that 
produced the model emd on experience with commercial time-sheu:ing services. 


1 . INSTALLATION 

To provide access to a large number of users, the model should be 
installed either on a commercial time-sharing service that has nationwide 
dial-up access or on a privately owned or government-owned computer wich 
dial-up access and In-WATS capability (if traffic warrants) . 

The most cost-effective installation would be on a Digital Equipment 
Corporation (DEC) PDP-11 minicomputer because the installation procedures 
listed in Appendix E could be applied directly. This computer should have 
at least 128K bytes of memory, should be running a recent version of the 
RSX-llM operating system, and should be equipped with a FORTRAN IV-PLUS 
compiler. Installation, in this case, should require less than two man- 
days . Other DEC operating systems could be used but would require a dif- 
ferent task build procedure. Other versions of FORTRAN may require changes 
in the source code. 

If unavailable, dial-up access could be provided by a standard asynchro- 
nous interface with a low-speed (300-baud) originate/answer modem for manual 
connections or by an auto-answer modem for automatic pickup. Either option 
leases for less than $50 per month. Nationwide toll-free access (In-WATS) 
can be provided on a metered rate ($244.00 for the first 10 hours and $18.31 
for each additional hour) or on a full-business-day rate (240 hours for 
approximately $1,500.00 per month). The breakpoint occurs around 80 hours. 
Projected line utilization should be the determining factor. 

Installation on other computers or on a commercial time-sharing service 
could be a costly proposition. Compatibility with DEC FORTRAN should be the 
primary consideration. A minimum of two man-weeks should be allocated for 
conversion, assuming that the target system is well understood. If a commer- 
cial time-sharing service is the target system, a minimum of $1,500 should 
be budgeted for the conversion. The advantage of converting the model to a 
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large computer is that laurger scenaurios could be developed (more cities, 
more paths, and more cost elements). In addition, most commercial time- 
sharing services offer nationwide dial-up access as part of their general 
services . 


2 . SOFTWARE MAINTENANCE 

As with any user -oriented model, there will be requests for model 
enhancements. Approximately two man-weeks will be required for a FORTRAN 
programmer to become familiar enough with the model software to maJce any 
extensive changes. After that, modifications should require no more than 
a few hours to complete. 

The seunple data file includes all of the nxjdel's current cost assump- 
tions, emd it should be reviewed and updated at least twice a year. Four 
num-days per year should be allocated for this purpose. A new sample data 
file can be created by use of the scenario builder. 

Itie earth terminal data file should be updated quarterly. A tape of 
the file m\jst be acquired from the National Technical Information Service 
(NTIS) . The tape must then be processed to strip out extraneous informa- 
tion, and it t.'ist be formatted into a form readable by the model. The 
format of the tape can be obtained from the Federal Communications Com- 
mission- This process is technically sinple but will require three to four 
man-days to perform all the necessary coordination, processing, and validation. 

Backup of the system should be performed on a periodic basis depending 
on model use. Backup procedures should not require more than two hours 
each time. 

Commercial time-sharing charges for software maintenance will probably 
average about $100 per month. In addition, if software aund data files are 
kept on line, storage charges should run about $500 per month. These 
chairges are not necessarily applicable to a small minicomputer system. 


3 . HARDWARE MAINTENANCE 

Hardware maintenance costs are not applicable to commercial time shar- 
ing because they are included in the normal charge algorithm. Maintenance 
costs on a minicomputer would vary depending on the hardware configuration, 
but they would probably run less than $600 per month. However, unless the 
cost model were the only application using the computer, only a percentage 
of this cost would apply. 


4. CUSTOMER SERVICE 

The user's guide should answer most questions about the model, but it 
will not be of much help in answering application-dependent inquiries. 
Therefore, it would be most useful for the organization that maintains the 
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model to have staff available to assist in user applications or refer users 
to another organization. Service can be provided on a consulting basis 
(user charged by the hour) for complex questions or handled under an over- 
head account for simple questions. The amount of time required to perform 
this activity is proportional to the number of user requests for assistance, 
but it can be billed on a cost-reimbursement basis. 


5. COSTS AND BILLING 

There are three areas of costs: direct processing costs, indirect 

processing costs, and administrative costs. Direct processing cost re- 
flect the costs of building scenarios, processing the earth terminal data 
base, executing the cost algorithms, amd preparing the output reports. 

The indirect processing costs include the software maintenamce activities 
of program changes, backup .rtivities, and earth terminal file updates 
and the on-line costs that accumulate. The administrative costs reflect 
the manpower required to perform the software maintenance activities, the 
user interface, and the billing process, as well as overhead items such as 
telephone ^md equipment rentals. 

Direct processing costs can be estimated as follows (commercial time 
sharing used as a basis for comparison) : 


• Build a large scenario file* $35.00 

• Modify an existing scenario $ 5.00 

• Execute cost model $ 3.00 

• Print all output reports $ 3.00 

• Process earth terminal data $15.00 


Indirect processing costs will probably run about $100 per month. Bill- 
ing will require approximately two man-days per month. An overhead service 
charge, based on estimated usage, should be computed to cover these indirect 
costs and all administrative costs. 


6. SUMMARY AND RECOMMENDATIONS 

The various costs and manpower requirements are summarized in Table F-1. 
The most cost-effective solution appears to be installation on a government- 
owned or privately owned PDP-11 minicomputer because the installation and 
recurring costs will be lower. 


*Assumes a two-hour hookup to computer. 
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Table F-1. COST SUMMARY BY TASK 


Task 

Time and Dollar Expenditure 

Commercial 

Time-Sharing 

Service 

Government-owned or 
Privately owned 
PDP-11 Minicomputer 

Installation 
Manpower 
Computer Charges 

2 man-weeks 
$1,500 

2 man-days 
$0 

Software Maintenance 

Familiarization 

Monthly Maintenance 

Computer Charges 

Monthly On-Line 
Storage Charges 

2 man-days* 

3 man-days 
$100 

$500 

2 man-weeks 

3 man-days 
$0 

$0 

Hardware Maintenance 

$0 

0-$600** 

CustOTier Sei'^ice 
Model Assistance 

Network Consulting 

3 man-days per month 
(depends on model usage) 

As required, directly 
billable 

Same 

Administration 

Billing 

Nationwide Dial-up 
Access 

2 man-days per month 
$0 

2 man-days per month 

$244 for 10 hours and 
$18.31 for each addi- 
tional hour per month 

•Most of necessary familiarization is achieved as part of installation. 
* ‘Depends on hardware configuration (only a percentage of total cost 
applicable to the model) . 






















